Gruppe
Allgemein
Problem
Wie kann ich alle Werte, die ein "x" oder "X" beinhalten, in eine zweite Tabelle übernehmen?
StandardModule: basMain
Sub Uebernehmen()
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If InStr(UCase(Cells(iRow, 1).Value), "X") Then
iRowT = iRowT + 1
Worksheets("Ziel").Cells(iRowT, 1).Value = _
Cells(iRow, 1).Value
End If
iRow = iRow + 1
Loop
End Sub