Copy
02.03.2017 08:46:51
Georg
Folgender Code kopiert in Abhängigkeit von der Eingabe:
Sub copy()
Dim i As Long
Dim Muster As String
Muster = InputBox("Dienstplanmuster eingeben", "DP")
For i = 1 To 4
If Range("A" & i).Value = Muster Then
Range("A" & i).copy Destination:=Worksheets(2).Range("A" & i + 4)
End If
Next i
End Sub
es wird ein Wert gefunden in A3, dann kopiere bitte A3 bis F3 nach Tabellenblatt2.
Vielen Dank.
Anzeige