title image


Smiley Re: Makro erstellt mittels Pivot neue Mappen --> Bennenung der Mappen
Hi Christian,



als Anregung folgender Code



Sub Neue_Tabelen()

' Code von LS MS Office-Forum

Dim lZZ As Long ' Zeilenzähler

Dim wks As Worksheet

lZZ = 1

Set wks = ActiveSheet

Do While wks.Cells(lZZ, 1).Value ""

wks.Copy after:=Worksheets(Worksheets.Count)

ActiveSheet.Name = wks.Cells(lZZ, 1).Value

Range("A1:D2000").ClearContents

lZZ = lZZ + 1

Loop

Set wks = Nothing

End Sub



Hierbei stehen in Spalte A die Namen für die zu erstellenden Tabellen. Der Inhalt der neuen Tabellen ist identisch mit dem Inhalt der Ausgangstabelle. Deshalb wird mit Range("A1:D2000").ClearContents der Inhalt der neu erstellten Tabellen gelöscht (Bereich bitte anpassen). Vielleicht kannst du diesen Code für deine Zwecke ja verwenden.

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: