|
Hallo Gast12012,
danke für deine Hilfe. Es hat funktioniert nachdem ich kleine Anpassung vorgenommen habe (siehe unten). Den Haken bei "Variablendeklaration erforderlich" war gesetzt. Daher bekam ich auch die Fehlermeldung Variable (die mein Sheetname ist) nicht erkannt.
Das Schleifen nicht böse sondern sehr nützlich sind, ist mir bewusst. Aber wenn Millionen von Zeilen zu durchsuchen sind, halte ich sie mittlerweile nicht mehr für effizient. Für meine Masterarbeit habe ich mit Matlab in einer Datenbank anfangs mit einer Schleife nach den gewünschten Informationen gesucht. Dies hat ca. 20 Minuten gedauert. Als ich dann über SQL und Filter und einer kleinen Schleife nach den Informationen gesucht habe, dauerte es nur noch zehn Sekunden. Mag sein, das meine erste Schleife ineffizient programmiert war und ein Programmierer gesagt hätte: "Prinzipell richtig aber ....". Erfahren werde ich es aber nicht.
Workbooks(strDateiInput).Worksheets("Kostenübersicht").Activate
With Worksheets("Kostenübersicht") 'vorher: With Tabelle3
letzteZeile = .Cells(Rows.Count, 2).End(xlUp).Row 'vorher: letzteZeile = ThisWorkbook.Sheets(Tabelle3).Cells(Rows.Count, 2).End(xlUp).Row
For aa = 93 To letzteZeile
If Cells(aa, 2).Value = "Objektplanung" Then 'vorher: If Cells(aa, 2).Value = "Objektplanung" = "Objektplanung" Then
MsgBox ("Objektplanung in den Zeile: " & Cells(aa, 2).Value & " gefunden.")
End If
Next aa
End With
Viele Grüße
Anfänger
|