Ich möchte, wenn in Spalte A, ein bestimmter Text steht, in der gleichen Reihe nach Spalte E. z.B Text in "A5", dann nach "E5"
Von "E5" möchte ich alle Zellen bis nächsten leeren Zellen kopieren.
z.B. "E5":"E20"
Ich habe Probleme den Bereich zu kopieren
Danke im Voraus....
Sub Werte_Kopieren()
Dim str_SuchString As String
Dim Counter1 As Integer
Dim Counter2 As Integer
Dim x As Integer
str_SuchString = "test" 'InputBox("Geben Sie ein Wort nachdem Sie suchen möchten ein:", "Suche.. _
.")
For Counter1 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Column
For Counter2 = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
If Cells(Counter2, Counter1).Value = str_SuchString Then
Cells(Counter2, Counter1).Select
End If
Next
Next
Selection.Offset(0, 4).Resize(Selection.Rows.Count, _
Selection.Columns.Count).Select
LaR = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(ActiveCell.Row + LaR, 5), Cells(ActiveCell.Row + LaR, 5)).Copy
End Sub