title image


Smiley Hier mal ein Grundgerüst zum weiteren Ausbauen
Hallo Christian!



Versuch es mal mit folgendem Lösungsansatz:

------------------------------------------------------

Dim r_liste As Range

Dim lng_anzDs As Long

Dim lng_datensatz As Long



Private Sub UserForm_Initialize()

Set r_liste = Range("a1").CurrentRegion

lng_anzDs = r_liste.Rows.Count

lng_datensatz = 1

Call zeigeDatenSatz

End Sub



Private Sub cmd_last_Click()

If lng_datensatz > 1 Then

lng_datensatz = lng_datensatz - 1

Call zeigeDatenSatz

Else

Beep

End If

End Sub



Private Sub cmd_next_Click()

If lng_datensatz < lng_anzDs Then

lng_datensatz = lng_datensatz + 1

Call zeigeDatenSatz

Else

Beep

End If

End Sub



Sub zeigeDatenSatz()

txt_Name = r_liste.Cells(lng_datensatz, 1)

txt_Vorname = r_liste.Cells(lng_datensatz, 2)

End Sub

--------------------------------------------------



Das ganze ausprobieren mit einer zweispaltigen Liste in z.B. A1:B20, wobei in A jeweils ein Name und in B der zugehörige Vorname steht.



Die Textboxen und die Combobox musst Du, wie Du siehst noch umbenennen.



Viel Erfolg

Manes


Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: