Auswertung funktioniert noch nicht !
08.05.2004 18:39:53
Ronaldo
hatte die u.g. Anfrage heute Mittag geschrieben. Habe auch eine Antwort von Wolfgang erhalten, weiss aber nicht, ob er sich zu diesem Thema noch einmal melden wird. Folgendes hat er mir geschickt:
Sub st()
ze = 3
Do While ze < 46
If Worksheets("Ist-Tabelle").Cells(ze, 2) = "TE" Then
ort = Worksheets("Ist-Tabelle").Cells(ze - 2, 2)
Teil:
teil1 = ort & " " & Worksheets("Ist-Tabelle").Cells(ze, 2)
Worksheets("Ist-Tabelle").Cells(ze, 1) = teil1 & " " & Worksheets("Ist-Tabelle").Cells(ze, 3)
ze = ze + 1
Worksheets("Ist-Tabelle").Cells(ze, 1) = teil1 & " " & Worksheets("Ist-Tabelle").Cells(ze, 3)
ze = ze + 1
Worksheets("Ist-Tabelle").Cells(ze, 1) = teil1 & " " & Worksheets("Ist-Tabelle").Cells(ze, 3)
ze = ze + 2
If Worksheets("Ist-Tabelle").Cells(ze, 2) = "TT" Then
GoTo Teil
Else
If Worksheets("Ist-Tabelle").Cells(ze, 2) = "TI" Then
GoTo Teil
End If
End If
End If
ze = ze + 1
Loop
End Sub
Das funktioniert gut, aber nicht, wenn z.B. "TE" nicht vorhanden ist.
Hat jemand eine Idee, was ich tun kann ? Habe in der Datei noch einige Infos hinzugefügt!
https://www.herber.de/bbs/user/6136.xls
Vielen Dank!
____________________________________________________________________
Hallo liebe Leute,
da es mir schwer fällt, mein Problem einfach zu beschreiben, habe ich die Datei, die ich bearbeiten muss, beigefügt:
Hier habe ich eine IST-Tabelle (so ungefähr sieht die Originaltabelle aus, die ich bearbeiten muss, jedoch mit viel mehr Daten)
Die Soll-Tabelle ist das, was ich haben möchte. Ich müßte wissen, wie ich die Spalte A in der Soll-Tabelle per Makro erzeugen kann. Danach könnte ich per Sverweis alle Daten, die ich aus der Soll-Tabelle benötige, ziehen.
Hat jemand eine Idee ?
Komme leider alleine nicht weiter, da ich mich mit VBA nicht sehr gut auskenne.
Ich hoffe, dass mir jemand weiterhelfen kann.
Vielen Dank
Ronaldo