ComboBoxen

Private Sub ComboBox1_Change()
Me.ComboBox2.Clear
End Sub

Private Sub CommandButton1_Click()
Dim lZeile As Long
'Wenn der Benutzer einen neuen Eintrag erzeugen möchte,erstellen wir einen neuen Eintrag
'in der ListBox und markieren diesen, damit der Benutzer die Daten eintragen kann
lZeile = 3 'Start in Zeile 3, Zeile 1 und 2 sind Überschriften Schleife solange etwas in    _
_
_
der
'ersten Spalte in Tabelle  drin steht
Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))  ""
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
'Nach Durchlauf dieser Schleife steht lZeile in der ersten leeren Zeile von Tabelle1
'Neuen Eintrag in die Tabelle1 schreiben, Spalte ID muss gefŸllt sein, damit
'unsere Routinen die Zeile wiederfinden!
Tabelle3.Cells(lZeile, 1) = CStr("Neuer Eintrag " & lZeile)
'Und neuen Eintrag in die UserForm eintragen
ListBox1.AddItem CStr("Neuer Eintrag " & lZeile)
'Den neuen Eintrag markieren mit Hilfe des ListIndexes
ListBox1.ListIndex = ListBox1.ListCount - 1
'Durch das Click Ereignis der ListBox werden die Daten automatisch geladen
End Sub

Private Sub CommandButton2_Click()
Dim lZeile As Long
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Zum Löschen betätigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = 3 'Start in Zeile 2, Zeile 1 sind ja die †berschriften
'Schleife solange bis etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))  ""
'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBox1.Text = Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) Then
'Eintrag gefunden, die ganze Zeile wird nun gel_scht
Tabelle3.Rows(CStr(lZeile & ":" & lZeile)).Delete
'Die ListBox muss nun neu geladen werden!
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub

Private Sub CommandButton3_Click()

Dim lZeile As Long

'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet

If ListBox1.ListIndex = -1 Then Exit Sub

'Wir müssen prüfen, ob die Eingaben auch gefüllt ist!!

If Trim(CStr(ComboBox1.Text)) = "" Then

MsgBox "Sie müssen eine Ebene eingeben!", vbCritical + vbOKOnly, "FEHLER!"

Exit Sub

End If

If Trim(CStr(ComboBox2.Text)) = "" Then

MsgBox "Sie müssen den Namen des Bereiches eingeben!", vbCritical + vbOKOnly, "FEHLER!" _

_

Exit Sub

End If

'Ausbauoption: Prüfen, ob die ID in Tabelle3 Spalte 1 schon vorhanden ist!

'Zum Speichern betätigen wir die Zeilennummer des ausgewählten Datensatzes

lZeile = 3 'Start in Zeile 2, Zeile 1 sind ja die †berschriften

'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht

Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))  ""

'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen

If ListBox1.Text = Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) Then

'Eintrag gefunden, TextBoxen in die Zellen schreiben

Tabelle3.Cells(lZeile, 1).Value = Trim(CStr(ComboBox1.Text))

Tabelle3.Cells(lZeile, 2).Value = ComboBox2.Text

'Die ListBox muss nun neu geladen werden

'allerdings nur, wenn sich der Name (ID) geändert hat

If ListBox1.Text  Trim(CStr(ComboBox1.Text)) Then

Call UserForm_Initialize

If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0

End If

Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist

End If

lZeile = lZeile + 1 'Nächste Zeile bearbeiten

Loop

End Sub

Private Sub CommandButton4_Click()

Unload Me

End Sub

Private Sub ListBox1_Click()

Dim lZeile As Long

'Wenn der Benutzer einen Namen anklickt, suchen wir

'diesen in der Tabelle1 heraus und tragen die Daten

'in die TextBoxen ein.

'Wir löschen standardmäßig alle bisherigen Boxen-Inhalte

ComboBox1 = ""

ComboBox2 = ""

'Nur wenn ein Eintrag selektiert/markiert ist

If ListBox1.ListIndex >= 0 Then

lZeile = 3 'Start in Zeile 3, Zeile 1 sind ja die Überschriften,

'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht

Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))  ""

'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1 gefunden haben,

'Übertragen wir die anderen Spalteninhalte in die TextBoxen!

If ListBox1.Text = Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) Then

'TextBoxen füllen

ComboBox1 = Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))

ComboBox2 = Tabelle3.Cells(lZeile, 2).Value

Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist

End If

lZeile = lZeile + 1 'N_chste Zeile bearbeiten

Loop

End If

End Sub

Private Sub UserForm_Activate()
'Wenn die Eingabemaske angezeigt wird, markieren wir den ersten Namen
'jedoch nur, wenn auch Eintr_ge in der Liste stehen
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
' Auswahl der Arbeitsbereiche
With Me.ComboBox1
ComboBox1.Clear
.AddItem ("1")
.AddItem ("2")
.AddItem ("3")
End With
Dim lZeile As Long
'Alle TextBoxen leer machen
ComboBox1 = ""
ComboBox2 = ""
'In dieser Routine laden wir alle vorhandenen Einträge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 3        'Start in Zeile 3, Zeile 1 und 2 sind ja die †berschriften
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))  ""
'Aktuelle Zeile in die ListBox eintragen
ListBox1.AddItem Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub