Hallo,

Ich habe ein Problem: Ich habe ein Makro in Excel geschrieben, was unter anderem Zellen markiert, die nicht einem bestimmten Kriterium entsprechen. Jetzt meine Frage: Kann ich anstatt den einzelnen Zellen, die ganze Spalte markieren um sie zu kopieren ?

Danke für eure Antworten.

Jetzt meine Frage: Kann ich anstatt den einzelnen Zellen, die ganze Spalte markieren um sie zu kopieren ?

es lebe die erfindung des Makro auzeichnens

Columns("E:E").Select

und dann halt mit selection.copy...

Ja...., das habe ich auch probiert. Allerdings ist das nicht immer die selbe Zeile. Ich weiß halt leider nicht, wie das variabel gemacht wird.

Hallo,

Ersetze Columns("E:E").Select durch Columns(ActiveCell.Column).Select

Wenn du nun Zelle in der Spalte selektierst, in der deine Daten stehen und dann dein Makro startest, dann wird diese Spalte selektiert und kopiert.

Danke das hilft mir schon sehr, aber kann ich das auch auf mehrere Spalten anwenden? Ich habe drei Zellen markiert und da sollen halt die kompletten Spalten kopiert werden.

Liegen die 3 Spalten nebeneinander? Ansonsten bau Dir doch ein Formular.

Ich hatte mirjetzt überlegt, das mit folgender Schleife zu machen

Range("X4").Select


Do


strZellinhalt = ActiveCell.Value



    If strZellinhalt = "Wahr" Then


        ActiveCell.Offset(1, 0).Activate


    Else


        Rows(ActiveCell.Row).Select


        Selection.Copy


        ActiveCell.Offset(1, 0).Activate


        Application.Windows("XXXXX2.xls").Activate


        ActiveSheet.Paste


        ActiveCell.Offset(1, 0).Activate


        Application.Windows("XXXXXX1.xls").Activate


   End If


Loop While strZellinhalt = "WAHR" Or strZellinhalt = "FALSCH"

XXXXXX1.xls ist die Quelltabelle, aus der die betroffenen Zeilen in XXXXX2.xls eingefügt werden sollen. Jetzt scheine ich ein Problem mit der If-Abfrage zu haben. Kann es sein, dass er nach dem Endif einfach aufhört und dann einfach nicht mehr in der Do-While Schleife weitermacht ???

XXXXXX1.xls ist die Quelltabelle, aus der die betroffenen Zeilen in XXXXX2.xls eingefügt werden sollen. Jetzt scheine ich ein Problem mit der If-Abfrage zu haben. Kann es sein, dass er nach dem Endif einfach aufhört und dann einfach nicht mehr in der Do-While Schleife weitermacht ???

lauf halt mal durch, und schau nach was in der zelle drin steht, wenn er rausgeht... halt mal debuggen

:marine :marine :marine Hab ich gemacht und habe gesehen, dass er nicht in die Spalte zurückspringt, wo er hin soll. Danke für eure Tipps :marine :marine :marine

Funktionierts jetzt?

Ansonsten ersetz mal

Loop While strZellinhalt = "WAHR" Or strZellinhalt = "FALSCH"

durch

Loop While strZellinhalt = True Or strZellinhalt = False

Funktionierts jetzt?

Ansonsten ersetz mal

Loop While strZellinhalt = "WAHR" Or strZellinhalt = "FALSCH"

durch

Loop While strZellinhalt = True Or strZellinhalt = False

das is kein bool... sondern n zellwert

Das war ja meine Frage Weil aus dem Quellcode geht das nicht wirklich hervor.

Das war ja meine Frage Weil aus dem Quellcode geht das nicht wirklich hervor.

:floet: hat sich erledigt

(ein klein etwas geht es schon hervor)

Okay hast Recht anhand des Variablennamens hätte man darauf kommen können.