Initialize: Daten aus Liste in Textbox Fehler
Ronny
Ich habe ein großes Problem und weiß nicht mehr weiter. Glaube das es sich dabei nur um ein Flüchtigkeitsfehler handelt. Finde ihn aber nicht.
Ich habe in einer Excel-Tabel 4 Spalten.
Spalte 1 (AN) ist von Zeile 5 bis max 59 jeweils ein Datum hinterlegt für Termine. (Textbox1)
Spalte 2 (AO) ist von Zeile 5 bis max 59 jeweils das Ereignis der Termins beschrieben. (Textbox2)
Spalte 3 (AL) ist von Zeile 5 bis max 59 jeweils ein Datum hinterlegt für Geburtstage (Textbox3)
Spalte 4 (AM) ist von Zeile 5 bis max 59 jeweils der Geburtstagsname hinterlegt. (Textbox4)
Geöffnet wird das Userform durch drücken einer Zelle in einer Liste Jahresübersicht, wo allerlei Termine und Geburtstage stehe. In der Zelle werden bereits die Zellen AM und AO ausgelesen und eingetragen.
Nun soll bei öffnen des Userforms die Spalten des Ereignisses/Geburtstagesdurchsucht werden und jeweils in die Textbox 1 und 2 für Termine und Textbox 3 und 4 für Geburtstage gechrieben werden.
PS: Es ist ein Userform mit Multiseiten. Erste Seite für die Termine und Zweite für die Geburtstage.
Hier der Code:
Private Sub UserForm_initialize()
Dim T As Long
Dim G As Long
Dim Ereignis As String
Ereignis = ActiveCell.Offset(0, 0)
T = 5
Do
If Range("AO" & T) = Ereignis Then Exit Do
If T > 59 Then Exit Do
T = T + 1
Loop
TextBox1 = Range("AN" & T) 'Termin Datum
TextBox2 = Range("AO" & T) 'Termin Ereignis
G = 5
Do
If Range("AM" & G) = Ereignis Then Exit Do
If G > 59 Then Exit Do
G = G + 1
Loop
TextBox3 = Range("AL" & G) 'Geb Datum
TextBox4 = Range("AM" & G) 'Geb Name
'If TextBox1.Value "" Then index(0).Activate
'If TextBox3.Value "" Then index1.Activate
End Sub
Gibt es eine Möglichkeit, das ich bei Aufruf direkt eine IndexNummer der Multiseite aufzurufen?
Hoffe Ihr könntmir helfen.
Gruß Ronny
Anzeige