Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ich kann noch mehr select!

ich kann noch mehr select!
15.09.2006 14:22:57
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sorry. Irrläufer. s.u.
15.09.2006 14:26:19
Reinhardt
.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige