Spalten kopieren

Bild

Betrifft: Spalten kopieren von: Fabian
Geschrieben am: 09.04.2005 16:00:52

Kurze Frage: Wie kann ich bei folgender Prozedur, das Kopieren von dem Text in der ersten Zeile abhängig machen?

Sub makro()
    Sheets("Tabelle1").Select
    Columns("A:A").Select
    Selection.Copy
    Sheets("Tabelle2").Select
    Columns("A:A").Select
    ActiveSheet.Paste
End Sub


Ich möchte also nicht einfach Spalte A aus Tab1 kopieren, sondern die Spalte, in der in der ersten Zeile "abc" steht. Geht das?

VG, Fabi
Bild


Betrifft: AW: Spalten kopieren von: chris b
Geschrieben am: 09.04.2005 16:20:00

Ja das geht etwa so.

Sub makro()
    Sheets("Tabelle1").Select
    Columns("A:A").Select
    Selection.Copy
    Sheets("Tabelle2").Select
    
For x = 1 To 10
If Cells(1, x) = "abs" Then
Cells(1, x).Select
ActiveSheet.Paste
End If
Next
    ActiveSheet.Paste
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spalten kopieren"