Beschreibung des Problems steht ganz oben
MfG
fwerner
Entschuldigung, aber mit dieser Beschreibung kann ich leider
nichts anfangen. Beschreibe Dein Problem bitte mit mehr als
einem Satz. Schreibe bitte ausführlich, was Du machen
möchtest.
Beschreibung des Problems steht ganz oben
MfG
fwerner
Entschuldigung, aber mit dieser Beschreibung kann ich leider
nichts anfangen. Beschreibe Dein Problem bitte mit mehr als
einem Satz. Schreibe bitte ausführlich, was Du machen
möchtest.
Hallo fwerner,
ganz habe ich die Fragestellung nicht verstanden, aber ich nehme an, du willst die einzelnen Artikel die in einer Summe enthalten sind ermitteln.
Als Auflistungsbegriff habe ich die Spalte A gewählt und als Voraussetzung habe ich angenommen, dass die Summenzeilen IMMER "Summe " + Zahl heissen.
Sub DurchsucheSpalteB()
Dim i As Integer
Dim ausgabe As String
ausgabe = ""
For i = 2 To 200
If Left(Worksheets(1).Cells(i, "B"), 6) = "Summe " Then
Debug.Print ausgabe
ausgabe = ""
Else
ausgabe = ausgabe & Worksheets(1).Cells(i, "A") & vbCr
End If
Next i
End Sub
Generell würde ich aber da eher auf datenbanktechnische Lösungen setzen.
Gruß
Harry
danke Harry für deine Bemühungen, ich hab den code schon fertig!!!