ich möchte Spalte A der ersten Tabelle nach einem Wert durchsuchen, Zeilen , die diesen Wert enthalten markieren und zum Schluß alles in Tabelle 2 kopieren.
Sub Tar_Zeilen_kopieren()
For i = 1 To 8000
If InStr(Range("A" & i).Value, "Tar") Then
If auswahl = "" Then
auswahl = i & ":" & i
Else
auswahl = auswahl & "," & i & ":" & i
End If
End If
Next
Range(auswahl).Select
Selection.Copy
Sheets("Tabelle2").Select
Sheets("Tabelle2").Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tabelle2").Range("A1").Select
End Sub
Bei dieser Zeile "Range(auswahl).Select" bekomme ich immer den Fehler 1004 "Die Methode Range für das Objekt Global ist fehlgeschlagen".
Gebe ich einen festen Range an Range("10:10,11:11,17:17,20:20") geht es. Kann mir einer das erklären?
Gruss, Sven