Nicht ganze Zeile kopieren
02.04.2014 09:26:21
Thorsten_Z
folgender Code kopiert mir immer die komplette gefundene Zeile. Ich brauche aber nur die Reihen A bis BU (Danach kommen Formeln die ich nicht kopiert haben will).
Wer kann mir Hilfestellung bei der Anpassung geben?
Private Sub CommandButton2_Click()
Dim rng As Range
Set rng = Worksheets("KinderDB").Columns(1) _
.Find(ComboBox1.Text, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
With Worksheets("Test")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
rng.EntireRow.Copy Worksheets("Test").Range("A1")
End With
End If
End Sub
Thorsten
Anzeige