Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Spalten kopieren"
Vorkommen von Zahlenreihen in Spalten Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen Spalten/Zeilen aus- und einblenden
Zeilen und Spalten über ein Drehfeld ein- und ausblenden In einem Dialog ausgewählte Spalten drucken
Spalten bedingt summieren und Zellen formatieren Abfrage der markierten Spalten