ich habe folgendes Makro, was nicht ganz funktioniert.
Ich möcht von einer Tabelle einen Bereich kopieren u. zwar ausgehende
von Zeile ab A4 bis ... ende wo Daten drin stehen.
Jetzt sollen die Daten in die andere Tabelle kopiert werden und zwar
ans ENDE (also + 1 Zeile) kopiert werden.
Vorher habe ich in der Zieltabelle die evtl. vorhandenen Filter entfernt,
das klappt.
Bei den anderen leider nicht.
Sub CommandButton4_Click()
Dim zt5u0 As Worksheet, vt5u0 As Worksheet
Dim rngV5u0, rngZ5u0 As Range
Dim z, ze, lz As Long
Set zt5u0 = Sheets("Test") ' hier rein kopieren
Set vt5u0 = Sheets("Kopie") ' aus Tabelle
With zt5u0
Set rngZ5u0 = zt5u0.Range("A3")
' .Unprotect (getStrPasswort)
If .AutoFilterMode Then rngZ5u0.AutoFilter
End With
'--- hier soll von der Tabelle Sheets("Kopie")kopiert werden
With vt5u0
Set rngV5u0 = vt5u0.Range("A3")
' .Range(rngV5u0, .Cells(z, 51)).Select
End With
'--- hier sollten die Daten in die Tabelle Sheets("Test") kopiert werden u. zwar
'ans Ende.
mfg walli