Tabellenblätter anhand Liste...
22.08.2003 21:37:10
René
Hallo liebe Exceluser,
ich habe da ein Problem wo ich alleine nicht klar komme und etwas hilfe gebrauchen könnte.
Ich habe eine Mappe mit 2 Arbeitsblättern (Filialen und Muster). Das Arbeitsblatt Filiale enthälte eine Liste mit 8 Spalten und ca. 200 Zeilen welche monatlich mehr werden.
Nun ich möchte meine Mustertabelle so oft kopieren wie Namen (in meine Fall Straßennamen) in der Liste vorkommen und diese Tabellenblätter dementsprechent benennen. Dazu habe ich folgende Makro schon gefunden was super funktioniert.
Sub Filialen_anlegen()
Dim i As Long
i = 2
Do While Sheets("Filialen").Cells(i, 1).Value <> ""
Sheets("Muster").Copy After:=Sheets(2 + J)
J = J + 1
Sheets("Muster (2)").Name = Sheets("Filialen").Cells(i, 2).Value
i = i + 1
Loop
End Sub
sowie folgendenes Markro um später schneller zu den einzelnen Tabellenblatt zu gelangen.
Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhalt"
Cells(2, 2).Value = "Enthaltene Blätter"
i = 3
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Inhalt" Then
Cells(i, 2).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2), _
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub
Soweit so gut. Das bekomme ich noch hin, aber was muß ich machen damit ich in den neu erzeugten Tabellenblatt gleich den Inhalt der gerade verwendeten Zeile mit kopiert wird, siehe Beispieldatei
https://www.herber.de/bbs/user/690.xls
wo von mir das mit zu kopierende Rot markiert wurde.
Ich würde mich freuen wenn Ihr mir da weiter helfen könntet und bedanke mich schon mal im voraus.
Gruß René
Anzeige