Tabelle ausfüllen// Namen einer Zahl zuordnen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Tabelle ausfüllen// Namen einer Zahl zuordnen

Re: Tabelle ausfüllen// Namen einer Zahl zuordnen

von keksi1970 » Sa, 22.03.2008 20:41

OK, es war

Code: Alles auswählen

do while  osheet.getcellbyposition(35,izeile).value <> 0 or osheet.getcellbyposition(35,izeile+1).value <> 0
nu funktionierts wie gewuénscht :)

Danke Karo :)

Re: Tabelle ausfüllen// Namen einer Zahl zuordnen

von keksi1970 » Sa, 22.03.2008 20:36

funktioniert nach einigen anpassungen perfekt (izeile = 1, da Überschrift)

nun hab ich n problem mit der 2. Überschrift mitten in der Tabelle

und immer noch n brett vorm kopf :( (Überschrift ist immer als leerfeld gewertet)
hmmm

Code: Alles auswählen

do while  osheet.getcellbyposition(35,izeile).value <> 0 AND osheet.getcellbyposition(35,izeile+1).value <> 0
ach ich hab nicht den Druchblick

Gruß ANdreas

Re: Tabelle ausfüllen// Namen einer Zahl zuordnen

von Karolus » Sa, 22.03.2008 18:54

Hallo Andreas

Ich hoffe das folgende erklärt sich beim Lesen:

Code: Alles auswählen

Sub namenzuordnen
odoc =thiscomponent
osheet = odoc.sheets(1) 'Tabelle 2

do while  osheet.getcellbyposition(0,izeile).string <> ""
	if osheet.getcellbyposition(1,izeile).string <> "" then '-wenn B nicht leer-
		tmpnummer = osheet.getcellbyposition(0,izeile).string ' Variablen festlegen
		tmpnamen = osheet.getcellbyposition(1,izeile).string   ' """""""""""""""
		eintragen(tmpnamen,tmpnummer) ' Sub eintragen mit Variablen aufrufen
	end if
	izeile = izeile + 1
loop
End Sub

sub eintragen(namen,nummer)
odoc =thiscomponent
osheet = odoc.sheets(1)
do while  osheet.getcellbyposition(0,izeile).string <> ""
	if osheet.getcellbyposition(1,izeile).string = "" then  ' wenn B leer-
		if osheet.getcellbyposition(0,izeile).string = nummer then '-und A = nummer-
		osheet.getcellbyposition(1,izeile).string = namen '-dann B = namen
		end if
	end if
	izeile = izeile + 1
loop
end sub
Gruß Karo

Tabelle ausfüllen// Namen einer Zahl zuordnen

von keksi1970 » Sa, 22.03.2008 15:05

hi Leute, ich brauch nen Denkanstoß,

ich habe "wie immer" eine Tabelle,

100 // Andreas
100 //
100 //
102 //
102 // peter
102 //
102 //
102 //
68 // thomas
70 //
70 //
70 // Karsten
104 //
104 // Andreas
104 //


(nur als Beispiel). jeztzt möchte ich, dass überall, wo 100 steht, in der nachbarzeile auch Andreas steht (usw.) ("//" symbolisieren die Trennung der einzelnen Zellen) aber halt auch bei 104 (liste beliebig fortsetzbar, manche Namen tauchen einfach auf, manche halt mehrfach)

ich habe es per Array versucht (Dim namen(1000) as string, namen (100) = "Andreas" namen(70) = "Karsten" usw
und dann per schleife das Feld A1 ausgelesen. Funktioniert aber nicht wie gewünscht. :(

irgendwelche Ideen ?

Gruß
Andreas

Nach oben