Office: Jahr auf Monate verteilen

Hallo an die Runde
Ich hatte mir sagen lassen, dass Ihr hier eine lösung für mich habt für mein Problem

In meiner Tabelle "Dienst" ist das ganze Jahr aufgeteilt
Dieses möchte ich jetzt auf die einzelne Monate umverteilen über VBA
mein Lösungsansatz bis jetzt sieht so aus

Sub Schaltfläche1_Klicken()
Call copy2month("Februar", 4, 5)
End Sub

Sub copy2month(monat As String, tagezeile As Integer, wertezeile As Integer)
Dim tage(30) As String
Dim werte(30) As String
Dim i As Integer
For i = 0 To 30
tage(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value
werte(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value
Next i
i = 0
For j = 0 To 59 - 18
If tage(i) = Sheets(monat).Cells(18 + j, 3).Value Then
Sheets(monat).Cells(18 + j, 1).Value = werte(i)
i = i + 1
End If
Next j
End Sub

es klapt aber nicht
jetzt brauch ich Hilfe :-)

 

ist es die richtige Datei?
Excel konnte "Schaltfläche1_Klicken" nicht finden.
Ich konnte in der Tabelle Dienst keine Werte Finden die finden die Aufgeteilt werden sollen bzw. Das vDatum uaf 12 Monate aufteilen erscheint mir sinnlos.
Es wurde auch nichts durch 12 bzw 365*Anzahl der Tage des Monats geteilt?

 

Zur Info:
Jahresplan auf Monatsplan verteilen

 

guten Morgen Hajo_Zi

Ich habe in der Tabelle "Dienst" in den Zeilen 5, 14,23,32 ..... Die Schichten mit den Dienstkürzeln T, N, U, K, S
U
Das Datum entspricht den Zeilen 3, 12 ,21 als Zahlenwert

Weiterhin habe ich 13 Monate genommen um den Jahresübergang besser zu manifestieren

Ich wollte das ganze sehr statisch Aufbauen damit es einfacher wird (werden soll)

Hier noch mal meine VBA für den Monat "Februar" zum Übertragen
aus der Tabelle" Dienst"

Sub Schaltfläche1_Klicken()
Call copy2month("Februar", 4, 5)
End Sub

Sub copy2month(monat As String, tagezeile As Integer, wertezeile As Integer)
Dim tage(30) As String
Dim werte(30) As String
Dim i As Integer
For i = 0 To 30
tage(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value
werte(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value
Next i
i = 0
For j = 0 To 59 - 18
If tage(i) = Sheets(monat).Cells(18 + j, 3).Value Then
Sheets(monat).Cells(18 + j, 1).Value = werte(i)
i = i + 1
End If
Next j
End Sub

Ich dachte mir wenn ich es erstmal an einem Monat versuche ist es leichter auf die anderen anzuwenden :-)

danke schon mal für die Unterstützung

 

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

bist du sicher das werte(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value richtig ist?

 

Hallo ralf_b
ich glaube schon, oder ich sehe den Wald vor lauter Bäumen nicht mehr
oder mein Wissen zum Thema VBA ist doch nicht ausreichend.
ein habe ich noch

Call copy2month("Februar", 4, 5)

das müsste glaube ich ("Februar", 12, 14) sein

Also für den Februar die Zeile 12 wo die Tage des Monats hinterlegt sind in der Zeile
und die Zeile 14 wo die Schichten hinterlegt sind
Gruß Bernd

 

Gruß Hajo

ERKLÄRE mir mein falsches Denken, ich möchte es ja richtig verstehen
damit es dann funktioniert.

 

Sub copy2month(monat As String, tagezeile As Integer, wertezeile As Integer)
Dim tage(30) As String
Dim werte(30) As String
Dim i As Integer
For i = 0 To 30
tage(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value
werte(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value 'oder doch wertezeile
Next i

 

hallo Ralf_b
das hatte ich garnicht gesehn.

DANKE !!!!!!!

Frage: wie nutze ich den Call Befehl in meinem Fall

Call copy2month("Februar", 4, 5) das ich über die Monatsausfahl von meiner Tabelle
an den jeweiligen Monat ran komme

Ich möchte ja nicht
Call copy2month("Januar", 3, 6)
Call copy2month("Februar", 12, 14)
Call copy2month("März", 21, 23) und so weiter durchgen

Gruß Bernd

 

ich hab mich nicht besonders intensiv mit deinem selbstgebauten Problem beschäftigt. Das "Call" kann man auch weglassen.
Ich verstehe dein Anliegen so, das du die Zeilen Nummern nicht fest in den Code schreiben willst. Da gäbe es die Möglichkeit den Monats Namen in Spalte A zu suchen und dann die Zeilennummern davon ableiten. Entweder du machst das vor dem Methodenaufruf oder du integrierst das in die Methode.