Kopiermakro
stefan
ich brauche mal wieder eure Hilfe habe hier ein Kopier Makro welches Daten aus einem Tabellenblatt in eine anderes überträgt.
1 Problem : Die zu übertragenen Daten werden nicht ausdem Datenblatt ausgetragen bleiben erhalten
die sollen aber gelöscht werden.
2.Problem: Die daten die ausgetragen werden haben leer zeilen zwischen den einzelenen Datensätzen, und
in dem Datenblett wo sie hin sollen werden sie nicht an die erste Zeile im Datenblatt übergeben, sondern an die Position wo sie in dem Datenblatt stehen wo sie rauskopiert werden.
Hier mein bisschen Code ich brauche eure Hilfe das wäre Super Danke im vorraus:)
Private Sub CommandButton1_Click()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 1
For i = 1 To 100
With Worksheets("Tabelle1")
If .Cells(i, "B") = "+" Then
.Rows(i).Copy _
Destination:=Worksheets("Tabelle2").Rows(a)
a = a + 1
Else
.Cells(i, "B") = "-"
.Rows(i).Copy _
Destination:=Worksheets("Tabelle3").Rows(a)
a = a + 1
End If
End With
Next i
Application.ScreenUpdating = True
End Sub
1000 Dank !!!!!!!!!111