Office: flexible Werteeingabe in Tabelle über Formular

Hallo, ich habe mal wieder ein für mich recht schwieriges Problem.
Ich habe einen Jahreskalender für eine Schichtplanung erstellt.
Sehr viele VBA Funktionen sind mit Hilfe der nette Helfern dieses Forums entstanden da ich kein
VBA Blicker bin.


Als groben Überblick:
Ich habe in Spalte A den Namen und in Spalte B die Qualifikation eines Mitarbeiters.
Derzeit sind 40 Zeilen ( 40 Mitarbeiter ) angelegt.
Für die Planung habe ich die Spalten C-AG für Januar, Spalten AI-BK für Februar angelegt.
Die weiteren Monate sind chronologisch jeweils einen Zeilenblock nach unten weitergeführt.
Es ergibt sich also ein Zellenrange von:
("C8:BK47,C53:BL92,C98:BL137,C143:BM182,C188:BM227,C233:BM272")




So nun das was ich möchte:



Da die Eingabe der zig verschiedenen Schichtmodelle sehr aufwändig und Fehlerbehaftet ist,
wollte ich das automatisieren.


Ich möchte in eine Zelle klicken, dann auf einen Butto (schichten eintragen) klicken
und damit ein Formular oder etwas ähnliches öffnen.

In dem Formular benötige ich zwei Eingabespalten.
Die erste Spalte mit einem nummerischen Feld für die Anzahl der zu übernehmenden Schichten
Die zweite Spalte mit 31 Textfeldern in denen ich die Schichtfolge z.B: F;F; ;N;N; ;S;S eintrage.
und ein Button namen Eintragen.

Folgender beispielhafter Ablauf:
1. ich wähle die Zelle C8 und klicke auf "schichten eintragen"
2. Es öffnet sich die Eingabemaste
3. Ich gebe die Anzahl der auszuwertenden Textfelder ein. (9)
4. Ich vergebe in den Textfeldern mein Schichtturnus (F;F; ;N;N; ;S;S; ;)
5. Ich klicke auf "Eintrage"
Das Makro trägt ab der Zelle C8 den 9er Turnus in den Zellenrange
"C8:BK8,C53:BL53,C98:BL98,C143:BM143,C188:BM188,C233:BM233" ein.
Würde ich D9 als Startzelle auswählen wäre es der Zellenrange:
"D9:BK9,C54:BL54,C99:BL99,C144:BM144,C189:BM189,C234:BM234"




Bevor ich komplett falsch anfange würde ich gerne wissen wie ich
da am besten ran gehe.




Vielen Dank,

Gruß Markus

 

Moinsens!

Bis hierhin alles keine Raketentechnik, aber jetzt:

Das ist schon etwas haarig. Wie genau soll der Kram jetzt dort eingetragen werden? Das Layout des Blatts scheint mir auch etwas unglücklich angelegt.

Als Basis hab ich mal das Ding im Anhang gebastelt. Außer ein paar MessageBoxen, um den Ablauf zu verdeutlichen, macht es noch nicht viel. Ich hab mal aus Deiner Beschreibung interpretiert und die Monate mit Gitternetz-Linien eingefaßt.

Die Haupt-Routine (vom "OK"-Button des UserForm aufgerufen) wird werden:

Code:

Private Sub Schichten_eintragen()

    Dim Schichten() As String

    Dim y1 As Long
    Dim x1 As Integer
    Dim n As Integer
    Dim i As Integer

    y1 = ActiveCell.Row
    x1 = ActiveCell.Column
    MsgBox "Start: " & ActiveCell.Address & " (z" & y1 & ",s" & x1 & ")"

    n = txt_Felder.Value
    ReDim Schichten(n)
    
    For i = 1 To n
        Schichten(i) = Me.Controls("txt_Schicht" & Format(i, "00")).Value
    Next i

    ' ...

End Sub

Aber das eigentliche Eintragen, da mußt du nochmal genauer werden. Ich hab da zwar eine Idee, wie Du es meinen könntest, aber erzähl mal lieber selbst...

Gruß, Michael

 

https://abox.alpla.com/public.php?service=files&t=d50696aee3a52e3501d838cf531d4d0d


Hallo, nach längerer Krankheit kann ich mich jetzt wieder um das Problem hier kümmern.
Tut mir leid, dass ich so lange nicht geantwortet habe.

Die ansätze sind schon so wie ich das gerne hätte.

Ich habe jetzt mal die Datei angehängt um zu verdeutlichen wie die Struktur ist.

UserForm und Button sind auch bereits nach Deinem Vorschlag eingebaut.


Hoffe jetzt ist es verständlicher.

Leider hab ich keine Ahnung wie ich das Userform richtig auslese und dann die Inhalte in die Zelle schreibe!



Gruß Markus

PS: anhängen geht gar nicht ,ist zu groß. Downloadlink oben

 

Übrigens Passwort ist test