Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen auf andere verteilen

Tabellen auf andere verteilen
03.11.2004 13:48:50
Thomas
Hallo Leute
Ich habe eine Tabelle. Diese Tabelle soll auf andere Tabellen verteilt werden. Ich habe es über der Recorder versucht aber leider nicht hinbekommen. Der Haken ist das sich jeden Monat die Tabelle in anzahl der Einträge ändert.
https://www.herber.de/bbs/user/12913.xls
Ich habe es nochmals in der hochgeladenen Tabelle beschrieben.
Danke für die Hilfe
Thomas B

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen auf andere verteilen
Reinhard
Hi Thomas,
ich habs mal probiert, ist aber noch nicht korrekt, aber vielleicht kann das ja du oder ein anderer den nachfolgenden Code umbateln damit es klappt.
Gruß
Reinhard 

Option Base 1
Sub test()
For n = 1 To Worksheets.Count
For nn = 1 To 12
If MonthName(nn) = Worksheets(n).Name Then Call Kopieren(Worksheets(n).Name)
Next nn
Next n
End Sub
Sub Kopieren(wsName As String)
wsZiel = Array("Buch", "Baum", "Tür")
With Worksheets(wsName)
For n = 1 To 3 'Anzahl von wsZiel
Start = 2
Ende = 2
While .Cells(Start, 1) <> ""
erste = Worksheets(wsZiel(n)).Range("A65536").End(xlUp).Row + 1
While .Cells(Ende, 1) = .Cells(Ende + 1, 1)
Ende = Ende + 1
Wend
.Range("A" & Start & ":F" & Ende - 1).Copy Destination:=Worksheets(wsZiel(n)).Range("A" & erste)
Ende = Ende + 1
Start = Ende
Wend
Next n
End With
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige