Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code- Optimierung

Code- Optimierung
André
Hallo liebes Forum,
ich trage mittels nachfolgendem Code einen Schichtplan in einen
Kalender ein. Diesen Code habe ich von einem anderen Projekt in
jetzt abgeänderter Form übernommen.(Dank an Beni)
Nun zu meinem Problem, ich will 3 Spalten auf einmal eintragen.
Bis jetzt trage ich jede Spalte nacheinander ein. Das doch bestimmt
anders, aber wie ? (Hab schon viel probiert, aber komm einfach nicht drauf)
Ich hänge auch noch die Datei mit an, zum besseren Verständnis.

Sub Plan2004()
[A34] = 2004
Application.ScreenUpdating = False
a = 2
With Sheets("Plan_alle")
za = za + 26
If za > 30 Then za = za - 29
For e = 2 To 48 Step 4
For f = 3 To 33
If Cells(f, e - 1) = "" Then Exit For
Cells(f, e) = .Cells(za, a)
za = za + 1
If za = 30 Then za = 2
Next f
Next e
End With
b = 3
With Sheets("Plan_alle")
zz = zz + 26
If zz > 30 Then zz = zz - 29
For l = 3 To 48 Step 4
For k = 3 To 33
If Cells(k, l - 1) = "" Then Exit For
Cells(k, l) = .Cells(zz, b)
zz = zz + 1
If zz = 30 Then zz = 2
Next k
Next l
End With
sp = 4
With Sheets("Plan_alle")
z = z + 26
If z > 30 Then z = z - 29
For m = 4 To 48 Step 4
For i = 3 To 33
If Cells(i, m - 1) = "" Then Exit For
Cells(i, m) = .Cells(z, sp)
z = z + 1
If z = 30 Then z = 2
Next i
Next m
End With
Application.ScreenUpdating = True
End Sub

https://www.herber.de/bbs/user/5888.xls
Vielen Dank
und ein schönes Wochenende
AndréL.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Code- Optimierung mit akt. Datei
André
Hallm Nepumuk,
vielen Dank (nur so auf die schnelle ?) ;-)
Dennoch habe ich einen kleinen Fehler entdeckt, ab
2005 trägt der Plan nicht mehr korrekt ein. :-(
Aber ich ziehe meinen Hut vor dieser sehr tollen Lösung !!!!
Schreibe mir doch einfach, was ich ändern muß,
ich blicke noch nicht so schnell durch.
Bis dahin
Viele Grüße
AndréL.
Anzeige
geschlossen !! Danke Nepumuk
André
Hallo Nepumuk,
ich habe es jetzt selber herausgefunden.
Deine Lösung ist wirklich genial. Klasse !
Ich muss einmal wieder feststellen:
Dieses Forum ist wirklich das kompetenteste.
Vielen Dank
AndréL.
AW: Code- Optimierung mit akt. Datei
01.05.2004 21:46:13
Nepumuk
Hallo André,
da habe ich mich vertan, diese Zeile entspricht deinen Zuweisungen an die Variable za:
za = CInt(Choose([A34] - 2003, 26, 28, 29, 2, 3)) 'von 2004 bis 2008
Also 2004=26, 2005=28, 2006=29 ..........
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige