Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
752to756
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach best. Kriterien filtern u neue Mappen erstell

Nach best. Kriterien filtern u neue Mappen erstell
13.04.2006 10:55:06
kunstname
Hallo Excel-Freunde :-)
Dieses Forum ist mit Abstand das beste!!!!!
Habe folgendes Problem: Ich bräuchte ein Makro, dass bspw. die erste Spalte durchläuft und dann für jeden Wert dieser Spalte eine neue Arbeitsmappe erstellt, welche den Namen dieses Wertes bekommt. Wenn ein Wert mehrfach in der 1.Spalte vorkommt, soll ABER NUR EINE neue Arbeitsmappe mit diesem Wert erstellt werden.
Bsp.: 1.Spalte
EX
SS
LL
EX
EX
SS
Ergebnis: EINE neue Mappe mit dem Namen EX, Eine neue Mappe mit dem Namen SS und eine mit dem Namen LL
Viiiiieeelen Dank schon mal im Voraus!!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach best. Kriterien filtern u neue Mappen ers
13.04.2006 12:09:13
EtoPHG
Hallo Kunstname,
(Eigentlich ist es erwünscht mit realen Name in diesem Forum zu kommunizieren !)
Hier ein Makro:

Sub BlattAusSpalte1()
Dim sx As Single
Dim ix As Integer
Dim bCheckSheet As Boolean
sx = 1
Do While Not (IsEmpty(ActiveSheet.Cells(sx, 1)))
bCheckSheet = False
On Error Resume Next
bCheckSheet = Sheets(ActiveSheet.Cells(sx, 1).Value).Index
On Error GoTo 0
If Not (bCheckSheet) Then
ix = ActiveSheet.Index
ActiveWorkbook.Sheets.Add _
after:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count), _
Type:=xlWorksheet
ActiveSheet.Name = Sheets(ix).Cells(sx, 1).Value
ActiveWorkbook.Sheets(ix).Activate
End If
sx = sx + 1
Loop
End Sub

Gruss Hansueli
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige