benötige Hilfe zu folgendem Problem.
VBA: suche in Tabelle 1 Spalte A nach Zeilen mit mindestens 3Buchstaben kopiere alle Zeilen und füge sie in Tabelle 2 Spalte E ein.
Vielen Dank im Voraus.
Gruß
Bernd
A | |
1 | ABC |
2 | ABC34 |
3 | 12ABC35 |
4 | 12ABC |
Sub versuch()
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle1")
Set wksZ = Worksheets("Tabelle2")
For i = 1 To wksQ.Cells(Rows.Count, 1).End(xlUp).Row
If Not IsNumeric(Cells(i, 1)) Then
wksQ.Cells(i, 1).Copy wksZ.Cells(wksZ.Cells(Rows.Count, 5).End(xlUp).Row + 1, 5)
End If
Next
End Sub
Sub versuch()
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle1")
Set wksZ = Worksheets("Tabelle2")
For i = 1 To wksQ.Cells(Rows.Count, 1).End(xlUp).Row
If Not IsNumeric(wksQ.Cells(i, 1)) Then
wksQ.Cells(i, 1).Copy wksZ.Cells(wksZ.Cells(Rows.Count, 5).End(xlUp).Row + 1, 5)
End If
Next
End Sub