Hallo Mase,

an SQL habe ich aufgrund der Schnelligkeit auch erst gedacht aber dann verworfen bevor ich im Forum nachgefragt habe. Codebeispiele habe ich im Internet dazu gefunden.

Ich will die Abfrage jetzt mit For-Schleifen durchführen. Kämpfe aber wieder mit der Syntax. Ich bekomme verschiedene Fehlermeldungen, die ich mir nicht erklären kann. Bei anderen funktionieren diese (z.B. https://www.youtube.com/watch?v=iw0FtvYxt9I für die Syntax With Tabelle1). Die Fehlermeldung habe ich als Kommentar im Code angefügt.

Dim letzteZeile as Long
Dim aa As Integer
Dim strDateiInput As String

Workbooks(strDateiInput).Worksheets("Kostenübersicht").Activate 'Sheet wird geöffnet und erscheint auf dem Bildschirm
With Tabelle3 '(Kostenübersicht) --> Es erfolgt eine Fehleranzeige, wenn ich mit With versuche zu arbeiten; Tabelle3 als Variable nicht definiert
    letzteZeile = .Cells(Rows.Count, 2).End(xlUp).Row
        
    For aa = 174 To letzteZeile ' Zeile 175 enthält das erste mal "Objektplanung"
        If Cells(aa, 2).Value = "Objektplanung" = "Objektplanung" Then
            MsgBox ("Objektplanung in der Zeile: " & Cells(aa, 2).Value & " gefunden.")
        End If
    Next aa

End With

Führe ich den Code ohne With aus:

Workbooks(strDateiInput).Worksheets("Kostenübersicht").Activate

letzteZeile = ThisWorkbook.Sheets(Tabelle3).Cells(Rows.Count, 2).End(xlUp).Row 'Laufzeitfehler 9: Index außerhalb des Bereichs --> vor dem Ausführen mit F8: letzteZeile=0, Rows.Count 1048576, xlUp= -4162

For aa = 174 To letzteZeile

If Cells(aa, 2).Value = "Objektplanung" = "Objektplanung" Then
MsgBox ("Objektplanung in den Zeile: " & Cells(aa, 2).Value & " gefunden.")
End If

Next aa
 

Was mache ich verkehrt bzw. liegt es vielleicht an der Excel-Tabelle (gefilterte Zeilen oder Spalten usw.)? Die Datei ist leider geschützt.

Viele Grüße

Anfänger