wie kann ich das makro so schreiben
das die Anzahl der kopiervorgänge(von Tabelle1"Muster") der Anzahl der eintragungen unter "Bezeichnung" (mit weiser vorraussicht das vielleicht noch mehr "Positionen" folgen)entsprechen wobei leere felder nicht mitgezählt (keine Kopie) werden
Das Blatt Tabelle1"Muster" soll sooft kopiert werden, wie einträge in der Tabelle2 sind(unter Bezeichnung,also soll Position 11 uns 12 nicht mitgezählt werden)
wenn es fragen zur frage gibt dann fragen danke
Tabelle2
Position Bezeichnung
1 Text 1
2 Text 2
3 Text 3
4 Text 4
5 Text 5
6 Text 6
7 Text 7
8 Text 8
9 Text 9
10 Text 10
11
12
13 Text13
dies ist nämlich keine gute lösung, da alles handarbeit
Sub Positionen1()
' Positionen1 Makro
' erstellt die Pos Blätter
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos1"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos2"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos3"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos4"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos5"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos6"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos7"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos8"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos9"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos10"
Sheets("Angebot").Select
End Sub
hoffe mir kann jemand helfen und danke im voraus
gruß praktikant Rene