Kopieren von Daten die dem Suchkriterium entsprech
05.11.2015 14:00:56
Daten
ich versuche mit meinem Code alle Zeilen zu übernehmen, die dem Suchkred entsprechen. Ist das Suchkriterium gleich dem was in der Tabelle steht, soll die ganze Zeile (A-D) übernommen werden. Bei meinem Makro wird aber immer nur die erste übernommen, danach passiert nichts mehr. Könnt ihr mir sagen was ich verändern muss?
Sub Laden_Bewertung()
Dim Fuell_Arbeitsblatt As String
Dim zBedingung As String
Suchkred = Sheets("Daten_Informationen").Range("A1").Value
Application.ScreenUpdating = False
'Fuell_Arbeitsblatt = ActiveSheet.Name
'Arbeitsblatt entsperren
Sheets("Diagram").Unprotect
Sheets("Daten_Informationen").Unprotect
' Sheets("Stabilusbewertung").Unprotect
NumRows = Get_Anzahl_Zeilen1("Daten_Informationen")
NumRows = NumRows + 1
' Sheets(Fuell_Arbeitsblatt).Activate
DatenZeile = 2
Do While DatenZeile Vielen Dank und liebe Grüße