Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro zum kopieren bestimmter anzahl von blättern

makro zum kopieren bestimmter anzahl von blättern
14.06.2004 14:03:05
blättern
Hallo und hilfe bitte und danke für den tip andreas
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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro zum kopieren bestimmter anzahl von blättern
14.06.2004 14:12:53
blättern
hallo rene (rene reicht glaub, praktikant kannst weglassen)
hab das nicht ausprobiert, sollte aber funzen
dim c as range
for each c in tabelle2.Columns(1).Cells.SpecialCells(xlCellTypeConstants)
sheets("Muster").copy before:=sheets("Muster")
sheets(1).name = c.value
next c
gruss joel
AW: makro zum kopieren bestimmter anzahl von blättern
14.06.2004 14:19:15
blättern
Wahnsinn danke
weisst du noch was ich machen kann damit der die überschrift nicht mitzählt und die beiden Positionen wo kein text bei Bezeichnung steht
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

gruß rene
Anzeige
AW: makro zum kopieren bestimmter anzahl von blättern
14.06.2004 14:28:21
blättern
hallo rene
die überschrift musst du wohl oder übel mit einer if-abfrage abfangen. für die zweite frage brauchst du nur die spalte in der for-each anweisung anzupassen..
for each c in tabelle2.columns(2).cells.specialcells(xlcelltypeconstants)
if c.row 1 then
sheets("Muster").copy before:=sheets("Muster")
sheets(1).name = c.value
end if
next c
gruss joel
AW: makro zum kopieren bestimmter anzahl von blättern
14.06.2004 14:38:08
blättern
ich wieder
es kommtwenn ich mein makro über commandbutton ausführen will dass er die specialcell - Eigenschaft des Range - Objektes nicht zuordnen kann
und wie kann ich schreiben dass der name der kopie der positionsnummer entspricht und nicht die position 13 das muster(11) ist
und zu guter letzt wer weiss wie ich diese ganzen kopien alle wieder löschen kann mit nem makro über commandbutton
danke
gruß rene
Anzeige
AW: makro zum kopieren bestimmter anzahl von blättern
14.06.2004 14:45:45
blättern
hallo rene
hab leider keine zeit mehr (heute).. morgen ist ja auch noch ein tag..
specialCells.. evtl. hast dus falsch geschrieben (guter tipp: gibs in kleinbuchstaben ein, setze den cursor auf die nächste zeile. wenn es nun gross geschrieben ist, hast dus richtig eingegeben
mit ein wenig selber kniffeln solltest du aber deine lösungen sehr leicht finden. streng dich ein wenig an. oder muss ich alles vorkauen?
gruss und viel glück und spass
AW: makro zum kopieren bestimmter anzahl von blättern
14.06.2004 14:49:03
blättern
danke bis hierhin
hoffe du kaust morgen wieder mit
gruß rene
AW: makro zum kopieren bestimmter anzahl von blättern
15.06.2004 10:59:46
blättern
hallo rene
ist deine frage noch aktuell? ich bin mir nicht sicher, was genau du willst..
du hast ein blatt "Muster" und ein blatt für die kopierroutine ("Kopien")
du möchtest nun das blatt "muster" entsprechend den spalten in "kopien" kopieren.
in blatt "kopien" hast du zwei spalten (position und bezeichnung)
die position des kopierten blattes soll "position" entsprechen, der name "bezeichnung"
wenn du also z.b. in "kopien" folgende einträge hast
position, bezeichnung
1, text 1
2, text 2
3
4, text 4
möchtest du anschliessend folgende blätter in dieser reihenfolge
MUSTER, text 1, text 2, text 4, KOPIEN
ist das so richtig? ich frag nur, weil ich eigentlich nicht mehr den ganzen tag laufend änderungen programmieren möchte, nur weil die aufgabenstellung nicht klar war.
gruss joel
Anzeige
AW: makro zum kopieren bestimmter anzahl von blättern
15.06.2004 11:49:37
blättern
hallo erstmal
das wusst ich nicht mit dem thread auf offen setzen
und hier nochmal zu meiner frage
ich habe zwei tabellen
"Muster" und "Angebot"
die tabelle angebot enthält folgende daten
position, bezeichnung
1 text 1
2 text 2
3
4 text 4
jetzt brauch ich ein makro was mir kopien von "Muster" erstellt die da heissen "1";"2";"4" da ja in position "3" keine Daten sind soll es keine kopie mit namen "3" erstellen
mein jetziger code lautet:

Sub Kopiere_Sheets()
Dim i As Integer
Application.ScreenUpdating = False
i = 2
For Each c In Tabelle2.Columns(2).Cells.SpecialCells(xlCellTypeConstants)
If c.Row <> 1 Then
ThisWorkbook.Sheets("Muster").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = _
ThisWorkbook.Sheets("angebot").Cells(i, 1).Value
i = i + 1
End If
Next c
Application.ScreenUpdating = True
End Sub

danke gruß rene
Anzeige
AW: makro zum kopieren bestimmter anzahl von blättern
15.06.2004 11:53:38
blättern
achso
desweiteren sollte es möglich sein weitere datensätze an die tabelle "Angebot" zu hängen
und demzufolge entsprechende kopien von "muster" zu erstellen
Danke
Rene
AW: makro zum kopieren bestimmter anzahl von blättern
15.06.2004 13:41:06
blättern
hallo rene
so, hab mich nochmals kurz mit deinem problem befasst.. schaus dir an, ob dus dir so vorgestellt hast
https://www.herber.de/bbs/user/7407.xls
gruss joel

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige