title image


Smiley Re: Terminplanung
Hallo Tysa,



hier ist meine Version:



Option Explicit



'

' das nachfolgende Makro sucht für 5 Personen, die sich in einem

' Tabellenblatt in Spalte 2/3, 4/5, 6/7, 8/9, 10/11 mit Zeiten

' von und Bis eintragen, gemeinsame Trainingszeiten für einen

' Monat zu finden.

' Das Datum des Monats steht in Spalte A ab Zeile 2.

' Es müssen nicht immer alle Zeiten ausgefüllt sein.

' Zeit-Von muss aber immer kleiner als Zeit-Bis sein.

' Die Zeiten müssen immer paarweise eingetragen sein.

'

Public Sub GemeinsameZeiten()



Dim lZeile As Long ' For/Next Index der Datums-Zeilen

Dim iSpalte As Integer ' For/Next Index der Spalten

Dim iFSpalte As Integer ' Fund-Spalte des ersten Eintrags am Tag

Dim Zeit_Von As Date ' Trainings-Zeit von

Dim Zeit_Bis As Date ' Trainings-Zeit bis





For lZeile = 2 To Range("A65536").End(xlUp).Row

Zeit_Von = "00:00:00"

Zeit_Bis = "00:00:00"

For iSpalte = 2 To 11 Step 2

If Cells(lZeile, iSpalte + 0).Value "" And _

Cells(lZeile, iSpalte + 1).Value "" Then

Zeit_Von = Cells(lZeile, iSpalte + 0).Value

Zeit_Bis = Cells(lZeile, iSpalte + 1).Value

iFSpalte = iSpalte + 2

Exit For

End If

Next iSpalte

If iFSpalte < 10 Then

For iSpalte = iFSpalte To 11 Step 2

If Cells(lZeile, iSpalte + 0).Value "" And _

Zeit_Von < Cells(lZeile, iSpalte + 0).Value Then

Zeit_Von = Cells(lZeile, iSpalte + 0).Value

End If

If Cells(lZeile, iSpalte + 1).Value "" And _

Zeit_Bis > Cells(lZeile, iSpalte + 1).Value Then

Zeit_Bis = Cells(lZeile, iSpalte + 1).Value

End If

Next iSpalte

Cells(lZeile, 12).Value = Zeit_Von

Cells(lZeile, 13).Value = Zeit_Bis

Else

Cells(lZeile, 12).Value = Zeit_Von

Cells(lZeile, 13).Value = Zeit_Bis

End If

Next lZeile



End Sub





Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: