Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Erstellung neuer Datenblätter

Forumthread: Erstellung neuer Datenblätter

Erstellung neuer Datenblätter
Clemens
Hi, habe folgendes Problem: Ich habe eine Tabelle, in die Werte eingegeben werden. Je Zeile, die Werte enthält, soll Excel mittels Makro ein neues Tabellenblatt (Tabelle) erstellen und dieses nach dem jeweiligen Wert in der ersten Spalte benennen und den Wert der zweiten Spalte im neu erstellten Blatt einfügen usw.
Kennt jemand eine Lösung? Vielen Dank.
-Clemens-
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Erstellung neuer Datenblätter
ChrisL
Hi Clemens

Private Sub CommandButton1_Click()
Dim iZeile As Long
Dim WS As Worksheet
For iZeile = 2 To Range("A65536").End(xlUp).Row
If Cells(iZeile, 1) <> "" Then
Set WS = Worksheets.Add(After:=Worksheets(Worksheets.Count))
WS.Name = Cells(iZeile, 1)
WS.Range("A1") = Cells(iZeile, 2)
End If
Next iZeile
End Sub

Gruss
Chris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige