AW: Wert nächste freie Zelle rechts eintragen
15.09.2006 14:24:40
Reinhardt
Hallo.
Ich muß mehr ausholen: (Auch wenn alle Proggis lachen)
Ich trage in zwei Zellen im TB Anfang und Ende eines Urlaubs ein.
Dann lasse ich mir im TB die Anzahl Urlaubstage ausrechnen, und mit der
Sub unten den Namen des Urlaubers in einen Kalender eintragen.Der Kalender ist einfach Zeilenweise untereinander. Tag für Tag. So kann es kommen, das Zehn leute am 02.10.06 Urlaub haben.
Die möchte ich in der Zeile vom 02.10.06 dann alle nebeneinander rechts vom
Kalender stehen haben.
Sub Gesamt()
Dim Zeile, Kalenderbereich, x, Urlaubstage As Integer
Dim suchzelle As String
Dim Mldg, Titel, Voreinstellung, Name, suchdatum
Mldg = "Wer geht in Urlaub? "
Titel = "Frage "
Voreinstellung = " ? Name ?"
Name = InputBox(Mldg, Titel, Voreinstellung, 9000, 1000)
Cells(40, 4).Select
Zeile = 40
suchzelle = Cells(Zeile, 4)
suchdatum = Cells(38, 9).Value
Urlaubstage = Cells(38, 11).Value
For x = 0 To Urlaubstage 'Schleife wiederholen vom ersten bis letzten Urlaubstag
Cells(40, 4).Select
Zeile = 40
suchzelle = Cells(Zeile, 4)
For Kalenderbereich = 1 To 9 ' Den ganzen Kalender durchsuchen und den Namen eintragen
If suchdatum = suchzelle Then
ActiveCell.Offset(0, 5).Select
ActiveCell.Value = Name
ActiveCell.Offset(0, -5).Select
End If
Zeile = Zeile + 1
suchzelle = Cells(Zeile, 4)
Cells(Zeile, 4).Select
Next Kalenderbereich
suchdatum = suchdatum + 1
Next x
End Sub