Makro zum kopieren bestimmte Zeilen
Achim Hermann
ich bitte wieder einmal um eine Hilfe bei meinem Problem:
Ich möchte verschiedene Zeilen, die in einer bestimmten Spalte beschriftet
sind, mit einem Makrobefehl kopieren.
z.B:
A B C D E F G H
1 X
2
3 X
4 X
5 X
Im vorgenannten Bespiel möchte ich gerne per Klick, mit einem Befehl, die
gesamten Zeilen 1,3,4,5 ( die in der Spalte "F" beschiftet sind) auf ein
anderes Tabellenblatt kopieren.
Ich bedanke mich für eine Hilfe recht herzlich!
Viele Grüße
Achim
Peter Plank
das sollte dein Problem lösen:
Sub cop()
Dim i as integer
For i = 1 To Range("A65536").End(xlUp)
If Range("F" & i) <> "" Then
Rows(i & ":" & i).Select
Selection.Copy
Worksheets("Tabelle2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial
Worksheets("Tabelle1").Select
End If
Next i
End Sub
HTH
Peter Plank
Achim Hermann schrieb in Nachricht
<#XoaSPZP...@cppssbbsa02.microsoft.com>...
Achim Hermann
vielen Dank für Deine Antwort.
Leider funktioniert dies nicht. Fehlermeldungen bisher in Zeile 2(For
i=.....) und Zeile4 (Rows....).
Habe die Eintragungen ganz genau abgeschrieben!
Viele Grüße
Achim
"Peter Plank" <Pl...@tks.thyssen.com> schrieb im Newsbeitrag
news:97237989...@news.thyssen.com...
Robert Feldmann
sollte sich mit .row abschaffen lassen. In der For i = 1 to ... Zeile
soll i einen Zähler darstellen der von 1 bis n durchlaufen wird. Mit
der Anweisung Range("A65536").End(xlUp).row wird die letzte verwendet
Zeile der Spalte A ermittelt und (.row) als Zahl zur Verfügung
gestellt. Auch in Zeile 4 wird diese Zahl gebraucht.
PS Manchmal ist es hilfreich die Fehlermeldung auch zu Posten.
Achim Hermann schrieb:
>
> Hallo Peter,
> vielen Dank für Deine Antwort.
> Leider funktioniert dies nicht. Fehlermeldungen bisher in Zeile 2(For
> i=.....) und Zeile4 (Rows....).
> Habe die Eintragungen ganz genau abgeschrieben!
> Viele Grüße
> Achim
>
> "Peter Plank" <Pl...@tks.thyssen.com> schrieb im Newsbeitrag
> news:97237989...@news.thyssen.com...
> > Hi Achim
> > das sollte dein Problem lösen:
> > Sub cop()
> > Dim i as integer
> > For i = 1 To Range("A65536").End(xlUp)
For i = 1 To Range("A65536").End(xlUp).row
Achim Hermann
Hallo Robert,
leider funktioniert das Makro immer noch nicht. Nachdem ich die Zeile "For i
= 1 To...." am Ende der Zeile mit ".row" ergänzt habe, erscheint bereits in
der nächsten Zeile eine weitere Fehlermeldung (gelb makiert)
In der Zeile "Rows(i&":"&1).Select erscheint auch eine weitere Fehlermeldung
(":").
Damit das Makro auch läuft, bitte ich um weitere Hilfe.
Vielen Dank
Achim
"Robert Feldmann" <robert....@netcologne.de> schrieb im Newsbeitrag
news:39F5E50F...@netcologne.de...
georg schwarz
> In der Zeile "Rows(i&":"&1).Select erscheint auch eine weitere
Fehlermeldung
> (":").
Rows(i&":"&1).Select ' fehler
Rows(i & ":" & 1).Select ' sieht zwar so ähnlich aus, ist aber was ganz
anderes
so long, Georg