Frage an Erich aus Kamp-Lintfort
20.02.2014 05:24:18
Michael
habe mich noch gar nicht für Deine excellente Hilfe bedankt... Das möchte ich jetzt noch nachholen.
Danke dir, hast mir wirklich sehr gut geholfen! Ohne diese Hilfe hätte ich das niemals hinbekommen...:-))
Noch eine Frage zu deinem Code.
Das ganze wird ja ausgelöst auf einem Excelsheet nach Eingabe Datum und Enter.
Ist es auch möglich die Auslösung auf einer Userform nach Change einer ComboBox?
Hier nochmal der ganze Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsMon As Worksheet, lngC As Long, arD, arA, qq As Long
Dim arE(), arF(), ee As Long, ff As Long, bolPr As Boolean
If Not Target.Address(0, 0) = "C7" Then Exit Sub
If Not IsDate(Target) Then MsgBox "Kein Datum - Abbruch": Exit Sub
Set wsMon = Sheets(Format(Target, "mmmm")) ' Tabellenblatt mit dem Monat
lngC = Day(Target) + 3 ' Spalte mit dem Tag
arD = wsMon.Cells(9, lngC).Resize(52) ' Werte Spalte des Tages
arA = wsMon.Cells(9, 1).Resize(52) ' Werte Spalte A
ReDim arE(1 To UBound(arD), 3)
ReDim arF(1 To UBound(arD), 3)
For qq = 1 To UBound(arD)
Select Case arD(qq, 1)
Case " " ' leer
Case "F", "S", "N", "Alt/F", "Alt/S", "T", "T1", "T2" ' "Bedingung primär"
ee = ee + 1
arE(ee, 0) = arA(qq, 1)
arE(ee, 1) = arD(qq, 1)
bolPr = True
Case Else
If IsEmpty(arA(qq, 1)) And IsNumeric(arD(qq, 1)) Then
If bolPr Then
arE(ee, 2) = arD(qq, 1) ' Uhrzeit
Else
arF(ff, 2) = arD(qq, 1) ' Uhrzeit
End If
If qq
Ich hoffe du kannst mir dabei nochmal helfen?Gruß Michael