Dies ist nur meine letzte Antwort auf diesen Thread, der im Archiv liegt. Ich hoffe der TA liest sie.
VORPLANUNG Sortierte Übernahme Personendaten von Tab1->Tab2 - Daenzn 03.12.2023 17:20:17
ich denke ich habe den Fehler, und auf das Array können wir ganz verzichten! Deine Tabellen heissen ja schon Montag, Dienstag usw.
Ändere nur den Anfangsteil des Codes, ab den Befehlen die Tabelle zu löschen bleibt er komplett erhalten. Damit klappt es bei mir
Wenn du über einen Button startest muss der Cursor in einer Wochentag Spalte stehen. Die Zeile spielt dabei KEINE Rolle!
mfg Piet
Sub Mitarbeiter_zuweisen_WochenTag()
Dim AC As Range, Sht As String, arrWTag
Dim TbX As Worksheet, i As Integer
'Fehlermeldung wenn der Cursor falsch steht
If TagSpa 3 Or TagSpa > 9 Or TagSpa = Empty Then
MsgBox "Der Cursor steht nicht in einer Wochentag Spalte!" & vbLf _
& "Bitte zuerst einen Wochentag auswählen!", vbInformation: Exit Sub
End If
'Tabellen für alle Tage: Montag bis Sonntag
Sht = Worksheets("Tabelle1").Cells(1, TagSpa - 3)
Set TbX = Worksheets(Sht) 'Zielsheet Mo-So.