Hallo Zusammen,
in meiner Projektliste habe ich mehrere Zeilen, in welcher in Spalte C die gleichen Inhalte stehen (der Projektname).
Jede Zeile gilt für eine einzelne Aufgabe für dieses Projekt, was in Spalte C benannt ist.
Andere Projekte stehen in der gleichen Tabelle drunter.
Wie kann ich jetzt in meinen VBA Code einbauen, dass er alle Zeilen mit Inhalt X in Spalte C ausliest?
Wichtig: jedes Projekt hat beliebig und unterschiedlich viele Zeilen.
Mein Code für eine einzelne Zeile sieht wie folgt aus:
Dim Zeile1 As Long
Dim Text1 As String
If ComboBox1 = "" Then
MsgBox ("Bitte die betroffene Maßnahme auswählen!")
ComboBox1.SetFocus
Exit Sub
End If
Sheets("pdfprint").Range("A1") = ComboBox1.Value
'Verantwortlicher
Zeile1 = Columns("A:L").Find(What:=ComboBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Text1 = "E" & Zeile1
Sheets("Übersicht").Range(Text1).Copy
Sheets("pdfprint").Range("B6").PasteSpecial xlPasteValues
Das funktioniert auch einwandfrei.