Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

excel Spalten kopieren

excel Spalten kopieren
06.10.2017 15:27:55
Mick80
Hallo zusammen,
ich habe hier bei Euch diesen code gefunden der mir eine Spalte in
eine neues Tabellen Blatt kopiert
Sub Kopieren()
Dim WkSh_Q As Worksheet ' Tabellenblatt Quelle / Herkunft
Dim WkSh_Z As Worksheet ' Tabellenblatt Ziel
Dim lZeile As Long ' For/Next Zeilen-Index
Dim iSpalte As Integer ' For/Next Spalten-Index
Dim lZeile_Z As Long ' Zeilenindex im Ziel Blatt
Set WkSh_Q = Worksheets("Tabelle1") ' 

Das ist leider nicht ganz was ich suche.
Ich würde gerne daraus folgendes machen
habe aber vom programmieren nicht viel Ahnung, außer immer gute Ideen
Also: Jede Spalte im Tabellenblatt1,
die in der ersten Zeile gefüllt ist wird auf ein neues Tabellenblatt
kopiert und das Tabellenblatt erhält den Namen der ersten Zeile, der kopierten Spalte, kann mir da jemand weiter helfen
Vielen Dank im Voraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: excel Spalten kopieren
06.10.2017 19:20:13
Robert
Hallo Mick,
nachstehender Code kopiert jede Spalte aus Tabelle1, die in Zeile 1 einen Eintrag hat, in die Spalte A eines neuen Tabellenblattes und benennt diese Tabelle nach dem Eintrag in Zeile 1. Es muss allerdings sichergestellt sein, dass der Eintrag in Zeile 1 den Regeln für die Benennung von Tabellenblätter entspricht (z. B. kein : / \ ? * [ oder ] enthält und auch nicht doppelt vorkommt).
Sub Kopieren()
Dim WkSh_Q As Worksheet ' Tabellenblatt Quelle / Herkunft
Dim iSpalte As Integer ' For/Next Spalten-Index
Set WkSh_Q = Worksheets("Tabelle1") '  "" Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(1, iSpalte).Value
Application.CutCopyMode = False
.Columns(iSpalte).Copy Destination:=ActiveSheet.Range("A1")
End If
Next iSpalte
End With
End Sub
Gruß
Robert
Anzeige
AW: excel Spalten kopieren
09.10.2017 09:22:22
Mick80
Top, genau das was ich gesucht habe. Vielen Dank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige