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"