Sub Beispiel()
Dim i As Long
Dim j As Long
Dim zeile As Long
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To ActiveSheet.UsedRange.Columns.Count
If Cells(i, j).Value = "Kunde" Then zeile = i
Next j
Next i
Rows("zeile:zeile").Select
End Sub
Der Fehler liegt in dieser Zeile:
Rows("zeile:zeile").Select
Wie könnt ich es machen, dass es funktioniert? Hätte jemand eine Idee?
Was ebenfalls noch hilfreich wäre, wäre ein befehl zum unterbrechen der schleife wenn die zelle mit Kunde gefunden worden ist.
Danke im Voraus
mfg Michael