vielleicht könnt ihr mir weiterhelfen ?
in der ersten SpalteA Importiere ich eine "txt" Datei, anschließend zerlge ich diese in verschiedenen spalten und möchte anschlißend eine Zähl Abfrage starten.
bei der Zählabfrage bekomme ich leider "Kein Ergebnis" und ich weiß nicht an was das liegt.
https://www.herber.de/bbs/user/102694.xlsm
ich möchte beide Kriterium in beide Zellen auslesen.
diesen Code verwende ich momentan.
Sub Zaehle() Dim i As Long Dim y1 As Integer Dim Zeile As Integer Dim a1, a2, a3, a4, a5, a6, a7, a8 As Range Worksheets("Tabelle1").Select a1 = Worksheets("Tabelle2").Range("C2") a2 = Worksheets("Tabelle2").Range("C4") Zeile = 1 y1 = 0 For i = [o65536].End(xlUp).Row To Zeile Step -1 If Cells(i, 13) = a1 And Cells(i, 3) = a2 Then y1 = y1 + 1 End If Next i Worksheets("Tabelle2").Range("F2").Value = y1 End Sub
vielen dank im Voraus.