Selektion erweitern...
14.02.2014 10:08:13
walter
habe mal dieses Makro aus dem Forum erhalten.
Nun möchte ich gern zusätzlich noch die Spalte Y mit kopiert
wird. Hatte dies so eingesetzt:
Range("A" & z, "Q" & z, "Y" & z).Select
leider Fehlermeldung.
Sheets("Test_Druck").Select
Range("A3").Activate
Antwort = MsgBox(" Sollen die 'alten' Daten gelöscht werden ? " & _
Chr(13), 32 + vbYesNo, "Abfrage Löschen ?")
If Antwort = vbYes Then
l = Range("a3").End(xlDown).Row
ActiveSheet.Range(Cells(3, 1), Cells(l, 38)).Select
Selection.ClearContents
Range("A3").Select
Else
Range("A3").Select
End If
Sheets("Datenbank-Auswahl").Select
Range("A3").Activa
z = ActiveCell().Row
verg = Left((Cells(1, 2)), 5)
z = 3 ' Startzeile für Schleife (hier 3)
Do While Cells(z, 1) "" ' Start der Schleife
Range("A" & z, "Q" & z, "Y" & z).Select
If Left(Cells(z, 11), 5) = verg Then
Range("A" & z, "Q" & z).Select
Selection.Copy ' Zeile kopieren
Sheets("Test_Druck").Activate ' Tabellenblatt 1 aktivieren
' 1. freie Zeile suchen
zz = 3 ' Startzeile für Schleife
Do While Cells(zz, 1) "" ' Start der Schleife 2=Spalte B
zz = zz + 1 ' Schleifenzähler um 1 erhöhen
Loop ' Wendepunkt für Schleife
Cells(zz, 1).Select ' Zelle selektieren 2=in Spalte B anfang
ActiveSheet.Paste ' kopierte einfügen
gruß walter