Hallo an euch :)
Ich habe folgenden Code der auch gut funktioniert nur löscht er mir die vorhandenen ergebisse immer
Ich will dass der Button bei 2. 3. 4. usw betätigung die vorhandenen ergebnisse stehen läßt und in die nächste freie Zelle kopiert.
habs leider nicht hinbekommen wäre nett wenn ihr mir helfen könnt
Vielen Dank
Private Sub CommandButton1_Click()
Dim Zeile As Long
Dim c
Dim GefZelle
Zeile = 1
c = True
GefZelle = True
With Worksheets("SucheL").Columns(19)
Set c = .Find("JA", LookIn:=xlValues)
If Not c Is Nothing And c.Address <> GefZelle Then
GefZelle = c.Address
Do
Rows(c.Row).Copy
Worksheets("Tabelle").Rows(Zeile).PasteSpecial Paste:=xlValues
Zeile = Zeile + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> GefZelle
End If
End With
End Sub |