Hallo!
Ich bin in VBA noch ein ziemlicher neuling bei komplizierteren sachen. Also ich wolltte in Tabelle1 einen CommandButtton einfügen, der wobald man daraufklickt diese ausführt:
im Bereich H8:H254 soll jede zelle durchsucht werden ob darin "JUMP" steht und wenn ja soll die zelle 2 spalten links davon (also in spalte F) kopiert werden und dann in Worksheet Tabelle7 in der Spalte A eingefügt werden, sodass alle Werte der Reihe nach untereinander in Spalte A stehen von A2 beginnend.
Ich bitte um eure Hilfe!!
Hier meine Versuch :
Private Sub Commandbutton_Click()
Dim Wo As Workbook
Dim Ws As Worksheet
Dim R As Range
Set Wo = ThisWorkbook
Set Ws = Wo.Worksheets("OMV")
Set R = [H8: H254]
For Each cell In R
If LCase(cell.Value) Like "Jump" Then
ActiveCell.Offset(0, 2).Select
ActiveSheet.Cell().Copy
Set Ws= Wo.Worksheets("Tabelle7")
[A2].select
ActiveSheet.cell.Paste Destination:=
For Each cell In Range("A2:L")
If IsNumeric(cell.Value) Then
Active.cell.Offset(1, 0).Select
Else
ActiveCell.Select
End If
Next
End If
Next
End Sub
Danke!!
|