Hallo zusammen,
ich habe folgendes Problem :
Es werden keinerlei Werte eingetragen gespeichert noch sonst irgendwas. Eine Fehlermeldung wird auch nicht ausgespuckt ..:(
Das sind meine ersten Anfänge überhaupt mit Excel und erst recht mit VBA .
Ich habe den Code mal ganz eingestellt und auch ein Bild der Maske angefügt. Bitte erschreckt nicht, das ist nicht für den Konzern sondern
für mich selbst kleines Licht um mir die Arbeit und Auswertung zu erleichtern.
Ich bin dankbar für jeden hilfreichen Tip
Danke sagt der blutige Anfänger
Gesamter Code
*Codetags korrigiert und Spoiler eingefügt* ~NoFear23m
PS: @Benny ändere doch bitte den Titel auf etwas sinnvolleres und erkläre besser wo genau das problem ist. Da es dein erster Beitrag ist sehe ich es dir nochmal nach. Gebe dir aber bitte etwas mehr mühe.
ich habe folgendes Problem :
Es werden keinerlei Werte eingetragen gespeichert noch sonst irgendwas. Eine Fehlermeldung wird auch nicht ausgespuckt ..:(
Das sind meine ersten Anfänge überhaupt mit Excel und erst recht mit VBA .
Ich habe den Code mal ganz eingestellt und auch ein Bild der Maske angefügt. Bitte erschreckt nicht, das ist nicht für den Konzern sondern
für mich selbst kleines Licht um mir die Arbeit und Auswertung zu erleichtern.
Ich bin dankbar für jeden hilfreichen Tip
Danke sagt der blutige Anfänger
Quellcode
- Option Explicit
- Option Compare Text
- 'Speichern Schaltfläche Ereignisroutine Food
- Private Sub CommandButton1_Click()
- Dim lZeile As Long
- 'Wenn kein Datensatz in der ListBox1 markiert wurde, wird die Routine beendet
- If ListBox1.ListIndex = -1 Then Exit Sub
- 'Prüfen ob die ID Spalte auch gefüllt ist!!
- If Trim(CStr(TextBox1.Text)) = "" Then
- 'Meldung ausgeben
- MsgBox "Du musst Du musst ein Datum auswählen!", vbCritical + vbOKOnly, "FEHLER!"
- 'Abbrechen der Speicherroutine
- Exit Sub
- End If
- 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
- 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
- lZeile = 2 '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(Tabelle1.Cells(lZeile, 1).Value)) <> ""
- 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
- If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
- 'Eintrag gefunden, TextBoxen in die Zellen schreiben
- Tabelle1.Cells(lZeile, 1).Value = Trim(CStr(TextBox1.Text))
- Tabelle1.Cells(lZeile, 2).Value = TextBox2.Text
- Tabelle1.Cells(lZeile, 3).Value = TextBox3.Text
- Tabelle1.Cells(lZeile, 4).Value = TextBox4.Text
- Tabelle1.Cells(lZeile, 5).Value = TextBox5.Text
- Tabelle1.Cells(lZeile, 6).Value = TextBox6.Text
- Tabelle1.Cells(lZeile, 7).Value = TextBox7.Text
- Tabelle1.Cells(lZeile, 8).Value = TextBox8.Text
- Tabelle1.Cells(lZeile, 9).Value = TextBox9.Text
- Tabelle1.Cells(lZeile, 10).Value = TextBox10.Text
- Tabelle1.Cells(lZeile, 11).Value = TextBox11.Text
- Tabelle1.Cells(lZeile, 12).Value = TextBox12.Text
- Tabelle1.Cells(lZeile, 13).Value = TextBox13.Text
- Tabelle1.Cells(lZeile, 14).Value = TextBox14.Text
- Tabelle1.Cells(lZeile, 15).Value = TextBox15.Text
- Tabelle1.Cells(lZeile, 16).Value = TextBox16.Text
- Tabelle1.Cells(lZeile, 17).Value = TextBox17.Text
- Tabelle1.Cells(lZeile, 18).Value = TextBox18.Text
- Tabelle1.Cells(lZeile, 19).Value = TextBox19.Text
- Tabelle1.Cells(lZeile, 20).Value = TextBox20.Text
- Tabelle1.Cells(lZeile, 21).Value = TextBox21.Text
- Tabelle1.Cells(lZeile, 22).Value = TextBox22.Text
- Tabelle1.Cells(lZeile, 23).Value = TextBox23.Text
- Tabelle1.Cells(lZeile, 24).Value = TextBox24.Text
- Tabelle1.Cells(lZeile, 25).Value = TextBox25.Text
- Tabelle1.Cells(lZeile, 26).Value = TextBox26.Text
- Tabelle1.Cells(lZeile, 27).Value = TextBox27.Text
- Tabelle1.Cells(lZeile, 28).Value = TextBox28.Text
- Tabelle1.Cells(lZeile, 29).Value = TextBox29.Text
- Tabelle1.Cells(lZeile, 30).Value = TextBox30.Text
- Tabelle1.Cells(lZeile, 31).Value = TextBox31.Text
- Tabelle1.Cells(lZeile, 32).Value = TextBox32.Text
- 'Die ListBox muss nun neu geladen werden
- 'allerdings nur, wenn sich der Name (ID) geändert hat
- If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
- Call UserForm5_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
- 'Speichern Schaltfläche Ereignisroutine dairy
- Private Sub CommandButton2_Click()
- Dim lZeile As Long
- 'Wenn kein Datensatz in der ListBox2 markiert wurde, wird die Routine beendet
- If ListBox2.ListIndex = -1 Then Exit Sub
- 'Prüfen ob die ID Spalte auch gefüllt ist!!
- If Trim(CStr(TextBox33.Text)) = "" Then
- 'Meldung ausgeben
- MsgBox "Du musst ein Datum auswählen!", vbCritical + vbOKOnly, "FEHLER!"
- 'Abbrechen der Speicherroutine
- Exit Sub
- End If
- 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
- 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
- lZeile = 2 '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(Tabelle11.Cells(lZeile, 1).Value)) <> ""
- 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
- If ListBox2.Text = Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) Then
- 'Eintrag gefunden, TextBoxen in die Zellen schreiben
- Tabelle11.Cells(lZeile, 1).Value = Trim(CStr(TextBox33.Text))
- Tabelle11.Cells(lZeile, 2).Value = TextBox34.Text
- Tabelle11.Cells(lZeile, 3).Value = TextBox35.Text
- Tabelle11.Cells(lZeile, 4).Value = TextBox36.Text
- Tabelle11.Cells(lZeile, 5).Value = TextBox37.Text
- Tabelle11.Cells(lZeile, 6).Value = TextBox37.Text
- Tabelle11.Cells(lZeile, 7).Value = TextBox39.Text
- Tabelle11.Cells(lZeile, 8).Value = TextBox40.Text
- Tabelle11.Cells(lZeile, 9).Value = TextBox41.Text
- Tabelle11.Cells(lZeile, 10).Value = TextBox42.Text
- Tabelle11.Cells(lZeile, 11).Value = TextBox43.Text
- 'Die ListBox2 muss nun neu geladen werden
- 'allerdings nur, wenn sich der Name (ID) geändert hat
- If ListBox2.Text <> Trim(CStr(TextBox33.Text)) Then
- Call UserForm5_Initialize
- If ListBox2.ListCount > 0 Then ListBox2.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
- 'Speichern Schaltfläche Ereignisroutine bev components
- Private Sub CommandButton3_Click()
- Dim lZeile As Long
- 'Wenn kein Datensatz in der ListBox3 markiert wurde, wird die Routine beendet
- If ListBox3.ListIndex = -1 Then Exit Sub
- 'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
- If Trim(CStr(TextBox44.Text)) = "" Then
- 'Meldung ausgeben
- MsgBox "Du musst ein Datum auswählen!", vbCritical + vbOKOnly, "FEHLER!"
- 'Abbrechen der Speicherroutine
- Exit Sub
- End If
- 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
- 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
- lZeile = 2 '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(Tabelle12.Cells(lZeile, 1).Value)) <> ""
- 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
- If ListBox3.Text = Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) Then
- 'Eintrag gefunden, TextBoxen in die Zellen schreiben
- Tabelle12.Cells(lZeile, 1).Value = Trim(CStr(TextBox44.Text))
- Tabelle12.Cells(lZeile, 2).Value = TextBox45.Text
- Tabelle12.Cells(lZeile, 3).Value = TextBox46.Text
- Tabelle12.Cells(lZeile, 4).Value = TextBox47.Text
- Tabelle12.Cells(lZeile, 5).Value = TextBox48.Text
- Tabelle12.Cells(lZeile, 6).Value = TextBox49.Text
- Tabelle12.Cells(lZeile, 7).Value = TextBox50.Text
- Tabelle12.Cells(lZeile, 8).Value = TextBox51.Text
- Tabelle12.Cells(lZeile, 9).Value = TextBox52.Text
- Tabelle12.Cells(lZeile, 10).Value = TextBox53.Text
- Tabelle12.Cells(lZeile, 11).Value = TextBox54.Text
- 'Die ListBox muss nun neu geladen werden
- 'allerdings nur, wenn sich der Name (ID) geändert hat
- If ListBox3.Text <> Trim(CStr(TextBox44.Text)) Then
- Call UserForm5_Initialize
- If ListBox3.ListCount > 0 Then ListBox3.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
- 'Speichern Schaltfläche Ereignisroutine Promo
- Private Sub CommandButton4_Click()
- Dim lZeile As Long
- 'Wenn kein Datensatz in der ListBox4 markiert wurde, wird die Routine beendet
- If ListBox4.ListIndex = -1 Then Exit Sub
- 'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
- If Trim(CStr(TextBox55.Text)) = "" Then
- 'Meldung ausgeben
- MsgBox "Du musst ein Datum auswählen!", vbCritical + vbOKOnly, "FEHLER!"
- 'Abbrechen der Speicherroutine
- Exit Sub
- End If
- 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
- 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
- lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
- 'Schleife solange etwas in der ersten Spalte in Tabelle 13 drin steht
- Do While Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) <> ""
- 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
- If ListBox4.Text = Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) Then
- 'Eintrag gefunden, TextBoxen in die Zellen schreiben
- Tabelle13.Cells(lZeile, 1).Value = Trim(CStr(TextBox55.Text))
- Tabelle13.Cells(lZeile, 2).Value = TextBox56.Text
- Tabelle13.Cells(lZeile, 3).Value = TextBox57.Text
- Tabelle13.Cells(lZeile, 4).Value = TextBox58.Text
- Tabelle13.Cells(lZeile, 5).Value = TextBox59.Text
- Tabelle13.Cells(lZeile, 6).Value = TextBox60.Text
- Tabelle13.Cells(lZeile, 7).Value = TextBox61.Text
- Tabelle13.Cells(lZeile, 8).Value = TextBox62.Text
- Tabelle13.Cells(lZeile, 9).Value = TextBox63.Text
- Tabelle13.Cells(lZeile, 10).Value = TextBox64.Text
- Tabelle13.Cells(lZeile, 11).Value = TextBox65.Text
- 'Die ListBox muss nun neu geladen werden
- 'allerdings nur, wenn sich der Name (ID) geändert hat
- If ListBox4.Text <> Trim(CStr(TextBox55.Text)) Then
- Call UserForm5_Initialize
- If ListBox4.ListCount > 0 Then ListBox4.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
- 'Beenden Schaltfläche Ereignisroutine
- Private Sub CommandButton5_Click()
- Unload Me
- End Sub
- 'Beenden Schaltfläche Ereignisroutine
- Private Sub CommandButton6_Click()
- Unload Me
- End Sub
- 'Beenden Schaltfläche Ereignisroutine
- Private Sub CommandButton7_Click()
- Unload Me
- End Sub
- 'Beenden Schaltfläche Ereignisroutine
- Private Sub CommandButton8_Click()
- Unload Me
- End Sub
- 'Klick auf die ListBox Ereignisroutine
- 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 TextBoxen-Inhalte
- TextBox1 = ""
- TextBox2 = ""
- TextBox3 = ""
- TextBox4 = ""
- TextBox5 = ""
- TextBox6 = ""
- TextBox7 = ""
- TextBox8 = ""
- TextBox9 = ""
- TextBox10 = ""
- TextBox11 = ""
- TextBox11 = ""
- TextBox13 = ""
- TextBox14 = ""
- TextBox15 = ""
- TextBox16 = ""
- TextBox17 = ""
- TextBox18 = ""
- TextBox19 = ""
- TextBox20 = ""
- TextBox21 = ""
- TextBox22 = ""
- TextBox23 = ""
- TextBox24 = ""
- TextBox25 = ""
- TextBox26 = ""
- TextBox27 = ""
- TextBox28 = ""
- TextBox29 = ""
- TextBox30 = ""
- TextBox31 = ""
- TextBox32 = ""
- 'Nur wenn ein Eintrag selektiert/markiert ist
- If ListBox1.ListIndex >= 0 Then
- lZeile = 2 '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(Tabelle1.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(Tabelle1.Cells(lZeile, 1).Value)) Then
- 'TextBoxen füllen
- TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
- TextBox2 = Tabelle1.Cells(lZeile, 2).Value
- TextBox3 = Tabelle1.Cells(lZeile, 3).Value
- TextBox4 = Tabelle1.Cells(lZeile, 4).Value
- TextBox5 = Tabelle1.Cells(lZeile, 5).Value
- TextBox6 = Tabelle1.Cells(lZeile, 6).Value
- TextBox7 = Tabelle1.Cells(lZeile, 7).Value
- TextBox8 = Tabelle1.Cells(lZeile, 8).Value
- TextBox9 = Tabelle1.Cells(lZeile, 9).Value
- TextBox10 = Tabelle1.Cells(lZeile, 10).Value
- TextBox11 = Tabelle1.Cells(lZeile, 11).Value
- TextBox12 = Tabelle1.Cells(lZeile, 12).Value
- TextBox13 = Tabelle1.Cells(lZeile, 13).Value
- TextBox14 = Tabelle1.Cells(lZeile, 14).Value
- TextBox15 = Tabelle1.Cells(lZeile, 15).Value
- TextBox16 = Tabelle1.Cells(lZeile, 16).Value
- TextBox17 = Tabelle1.Cells(lZeile, 17).Value
- TextBox18 = Tabelle1.Cells(lZeile, 18).Value
- TextBox19 = Tabelle1.Cells(lZeile, 19).Value
- TextBox20 = Tabelle1.Cells(lZeile, 20).Value
- TextBox21 = Tabelle1.Cells(lZeile, 21).Value
- TextBox22 = Tabelle1.Cells(lZeile, 22).Value
- TextBox23 = Tabelle1.Cells(lZeile, 23).Value
- TextBox24 = Tabelle1.Cells(lZeile, 24).Value
- TextBox25 = Tabelle1.Cells(lZeile, 25).Value
- TextBox26 = Tabelle1.Cells(lZeile, 26).Value
- TextBox27 = Tabelle1.Cells(lZeile, 27).Value
- TextBox28 = Tabelle1.Cells(lZeile, 28).Value
- TextBox29 = Tabelle1.Cells(lZeile, 29).Value
- TextBox30 = Tabelle1.Cells(lZeile, 30).Value
- TextBox31 = Tabelle1.Cells(lZeile, 31).Value
- TextBox32 = Tabelle1.Cells(lZeile, 32).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
- 'Klick auf die ListBox Ereignisroutine
- Private Sub ListBox2_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 TextBoxen-Inhalte
- TextBox33 = ""
- TextBox34 = ""
- TextBox35 = ""
- TextBox36 = ""
- TextBox37 = ""
- TextBox38 = ""
- TextBox39 = ""
- TextBox40 = ""
- TextBox41 = ""
- TextBox42 = ""
- TextBox43 = ""
- 'Nur wenn ein Eintrag selektiert/markiert ist
- If ListBox2.ListIndex >= 0 Then
- lZeile = 2 '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(Tabelle11.Cells(lZeile, 1).Value)) <> ""
- 'Wenn wir den Namen aus der ListBox11 in der Tabelle1 Spalte 1
- 'gefunden haben, übertragen wir die anderen Spalteninhalte
- 'in die TextBoxen!
- If ListBox2.Text = Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) Then
- 'TextBoxen füllen
- TextBox33 = Trim(CStr(Tabelle11.Cells(lZeile, 1).Value))
- TextBox34 = Tabelle11.Cells(lZeile, 2).Value
- TextBox35 = Tabelle11.Cells(lZeile, 3).Value
- TextBox36 = Tabelle11.Cells(lZeile, 4).Value
- TextBox37 = Tabelle11.Cells(lZeile, 5).Value
- TextBox38 = Tabelle11.Cells(lZeile, 6).Value
- TextBox39 = Tabelle11.Cells(lZeile, 7).Value
- TextBox40 = Tabelle11.Cells(lZeile, 8).Value
- TextBox41 = Tabelle11.Cells(lZeile, 9).Value
- TextBox42 = Tabelle11.Cells(lZeile, 10).Value
- TextBox43 = Tabelle11.Cells(lZeile, 11).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
- 'Klick auf die ListBox Ereignisroutine
- Private Sub ListBox3_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 TextBoxen-Inhalte
- TextBox44 = ""
- TextBox45 = ""
- TextBox46 = ""
- TextBox47 = ""
- TextBox48 = ""
- TextBox49 = ""
- TextBox50 = ""
- TextBox51 = ""
- TextBox52 = ""
- TextBox53 = ""
- TextBox54 = ""
- 'Nur wenn ein Eintrag selektiert/markiert ist
- If ListBox3.ListIndex >= 0 Then
- lZeile = 2 '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(Tabelle12.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 ListBox3.Text = Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) Then
- 'TextBoxen füllen
- TextBox44 = Trim(CStr(Tabelle12.Cells(lZeile, 1).Value))
- TextBox45 = Tabelle12.Cells(lZeile, 2).Value
- TextBox46 = Tabelle12.Cells(lZeile, 3).Value
- TextBox47 = Tabelle12.Cells(lZeile, 4).Value
- TextBox48 = Tabelle12.Cells(lZeile, 5).Value
- TextBox49 = Tabelle12.Cells(lZeile, 6).Value
- TextBox50 = Tabelle12.Cells(lZeile, 7).Value
- TextBox51 = Tabelle12.Cells(lZeile, 8).Value
- TextBox52 = Tabelle12.Cells(lZeile, 9).Value
- TextBox53 = Tabelle12.Cells(lZeile, 10).Value
- TextBox54 = Tabelle12.Cells(lZeile, 11).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
- 'Klick auf die ListBox Ereignisroutine
- Private Sub ListBox4_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 TextBoxen-Inhalte
- TextBox55 = ""
- TextBox56 = ""
- TextBox57 = ""
- TextBox58 = ""
- TextBox59 = ""
- TextBox60 = ""
- TextBox61 = ""
- TextBox62 = ""
- TextBox63 = ""
- TextBox64 = ""
- TextBox65 = ""
- 'Nur wenn ein Eintrag selektiert/markiert ist
- If ListBox4.ListIndex >= 0 Then
- lZeile = 2 '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(Tabelle13.Cells(lZeile, 1).Value)) <> ""
- 'Wenn wir den Namen aus der ListBox4 in der Tabelle13 Spalte 1
- 'gefunden haben, übertragen wir die anderen Spalteninhalte
- 'in die TextBoxen!
- If ListBox4.Text = Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) Then
- 'TextBoxen füllen
- TextBox55 = Trim(CStr(Tabelle13.Cells(lZeile, 1).Value))
- TextBox56 = Tabelle13.Cells(lZeile, 2).Value
- TextBox57 = Tabelle13.Cells(lZeile, 3).Value
- TextBox58 = Tabelle13.Cells(lZeile, 4).Value
- TextBox59 = Tabelle13.Cells(lZeile, 5).Value
- TextBox60 = Tabelle13.Cells(lZeile, 6).Value
- TextBox61 = Tabelle13.Cells(lZeile, 7).Value
- TextBox62 = Tabelle13.Cells(lZeile, 8).Value
- TextBox63 = Tabelle13.Cells(lZeile, 9).Value
- TextBox64 = Tabelle13.Cells(lZeile, 10).Value
- TextBox65 = Tabelle13.Cells(lZeile, 11).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 UserForm5_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
- If ListBox2.ListCount > 0 Then ListBox2.ListIndex = 0
- If ListBox3.ListCount > 0 Then ListBox3.ListIndex = 0
- If ListBox4.ListCount > 0 Then ListBox4.ListIndex = 0
- End Sub
- 'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
- Private Sub UserForm5_Initialize()
- UserForm5.Label2.Caption = Worksheets("Tabelle1").Range("B7")
- UserForm5.Label3.Caption = Worksheets("Tabelle1").Range("B8")
- UserForm5.Label4.Caption = Worksheets("Tabelle1").Range("B9")
- UserForm5.Label5.Caption = Worksheets("Tabelle1").Range("B10")
- UserForm5.Label6.Caption = Worksheets("Tabelle1").Range("B11")
- UserForm5.Label7.Caption = Worksheets("Tabelle1").Range("B12")
- UserForm5.Label8.Caption = Worksheets("Tabelle1").Range("B13")
- UserForm5.Label9.Caption = Worksheets("Tabelle1").Range("B14")
- UserForm5.Label10.Caption = Worksheets("Tabelle1").Range("B15")
- UserForm5.Label11.Caption = Worksheets("Tabelle1").Range("B16")
- UserForm5.Label12.Caption = Worksheets("Tabelle1").Range("B17")
- UserForm5.Label13.Caption = Worksheets("Tabelle1").Range("B18")
- UserForm5.Label14.Caption = Worksheets("Tabelle1").Range("B19")
- UserForm5.Label15.Caption = Worksheets("Tabelle1").Range("B20")
- UserForm5.Label16.Caption = Worksheets("Tabelle1").Range("B21")
- UserForm5.Label17.Caption = Worksheets("Tabelle1").Range("B22")
- UserForm5.Label18.Caption = Worksheets("Tabelle1").Range("B23")
- UserForm5.Label19.Caption = Worksheets("Tabelle1").Range("B24")
- UserForm5.Label20.Caption = Worksheets("Tabelle1").Range("B25")
- UserForm5.Label21.Caption = Worksheets("Tabelle1").Range("B26")
- UserForm5.Label22.Caption = Worksheets("Tabelle1").Range("B27")
- UserForm5.Label23.Caption = Worksheets("Tabelle1").Range("B28")
- UserForm5.Label24.Caption = Worksheets("Tabelle1").Range("B29")
- UserForm5.Label25.Caption = Worksheets("Tabelle1").Range("B30")
- UserForm5.Label26.Caption = Worksheets("Tabelle1").Range("B31")
- UserForm5.Label27.Caption = Worksheets("Tabelle1").Range("B32")
- UserForm5.Label28.Caption = Worksheets("Tabelle1").Range("B33")
- UserForm5.Label29.Caption = Worksheets("Tabelle1").Range("B34")
- UserForm5.Label30.Caption = Worksheets("Tabelle1").Range("B35")
- UserForm5.Label31.Caption = Worksheets("Tabelle1").Range("B36")
- UserForm5.Label32.Caption = Worksheets("Tabelle1").Range("B37")
- UserForm5.Label34.Caption = Worksheets("Tabelle1").Range("F7")
- UserForm5.Label35.Caption = Worksheets("Tabelle1").Range("F8")
- UserForm5.Label36.Caption = Worksheets("Tabelle1").Range("F9")
- UserForm5.Label37.Caption = Worksheets("Tabelle1").Range("F10")
- UserForm5.Label38.Caption = Worksheets("Tabelle1").Range("F11")
- UserForm5.Label39.Caption = Worksheets("Tabelle1").Range("F12")
- UserForm5.Label40.Caption = Worksheets("Tabelle1").Range("F13")
- UserForm5.Label41.Caption = Worksheets("Tabelle1").Range("F14")
- UserForm5.Label42.Caption = Worksheets("Tabelle1").Range("F15")
- UserForm5.Label43.Caption = Worksheets("Tabelle1").Range("F16")
- UserForm5.Label45.Caption = Worksheets("Tabelle1").Range("F17")
- UserForm5.Label46.Caption = Worksheets("Tabelle1").Range("F18")
- UserForm5.Label47.Caption = Worksheets("Tabelle1").Range("F19")
- UserForm5.Label48.Caption = Worksheets("Tabelle1").Range("F20")
- UserForm5.Label49.Caption = Worksheets("Tabelle1").Range("F21")
- UserForm5.Label50.Caption = Worksheets("Tabelle1").Range("F22")
- UserForm5.Label51.Caption = Worksheets("Tabelle1").Range("F23")
- UserForm5.Label52.Caption = Worksheets("Tabelle1").Range("F24")
- UserForm5.Label53.Caption = Worksheets("Tabelle1").Range("F25")
- UserForm5.Label54.Caption = Worksheets("Tabelle1").Range("F26")
- UserForm5.Label56.Caption = Worksheets("Tabelle1").Range("F27")
- UserForm5.Label57.Caption = Worksheets("Tabelle1").Range("F28")
- UserForm5.Label58.Caption = Worksheets("Tabelle1").Range("F29")
- UserForm5.Label59.Caption = Worksheets("Tabelle1").Range("F30")
- UserForm5.Label60.Caption = Worksheets("Tabelle1").Range("F31")
- UserForm5.Label61.Caption = Worksheets("Tabelle1").Range("F32")
- UserForm5.Label62.Caption = Worksheets("Tabelle1").Range("F33")
- UserForm5.Label63.Caption = Worksheets("Tabelle1").Range("F34")
- UserForm5.Label64.Caption = Worksheets("Tabelle1").Range("F35")
- UserForm5.Label65.Caption = Worksheets("Tabelle1").Range("F36")
- Dim lZeile As Long
- 'Alle TextBoxen leer machen
- TextBox1 = ""
- TextBox2 = ""
- TextBox3 = ""
- TextBox4 = ""
- TextBox5 = ""
- TextBox6 = ""
- TextBox7 = ""
- TextBox8 = ""
- TextBox9 = ""
- TextBox10 = ""
- TextBox11 = ""
- TextBox11 = ""
- TextBox13 = ""
- TextBox14 = ""
- TextBox15 = ""
- TextBox16 = ""
- TextBox17 = ""
- TextBox18 = ""
- TextBox19 = ""
- TextBox20 = ""
- TextBox21 = ""
- TextBox22 = ""
- TextBox23 = ""
- TextBox24 = ""
- TextBox25 = ""
- TextBox26 = ""
- TextBox27 = ""
- TextBox28 = ""
- TextBox29 = ""
- TextBox30 = ""
- TextBox31 = ""
- TextBox32 = ""
- TextBox33 = ""
- TextBox34 = ""
- TextBox35 = ""
- TextBox36 = ""
- TextBox37 = ""
- TextBox38 = ""
- TextBox39 = ""
- TextBox40 = ""
- TextBox41 = ""
- TextBox42 = ""
- TextBox43 = ""
- TextBox44 = ""
- TextBox45 = ""
- TextBox46 = ""
- TextBox47 = ""
- TextBox48 = ""
- TextBox49 = ""
- TextBox50 = ""
- TextBox51 = ""
- TextBox52 = ""
- TextBox53 = ""
- TextBox54 = ""
- TextBox55 = ""
- TextBox56 = ""
- TextBox57 = ""
- TextBox58 = ""
- TextBox59 = ""
- TextBox60 = ""
- TextBox61 = ""
- TextBox62 = ""
- TextBox63 = ""
- TextBox64 = ""
- TextBox65 = ""
- 'In dieser Routine laden wir alle vorhandenen
- 'Einträge in die ListBox1 bis Listbox4
- ListBox1.Clear 'Zuerst einmal die Liste leeren
- ListBox2.Clear
- ListBox3.Clear
- ListBox4.Clear
- lZeile = 2 '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(Tabelle1.Cells(lZeile, 1).Value)) <> ""
- 'Aktuelle Zeile in die ListBox eintragen
- ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
- lZeile = lZeile + 1 'Nächste Zeile bearbeiten
- Loop
- Do While Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) <> ""
- 'Aktuelle Zeile in die ListBox eintragen
- ListBox1.AddItem Trim(CStr(Tabelle11.Cells(lZeile, 1).Value))
- lZeile = lZeile + 1 'Nächste Zeile bearbeiten
- Loop
- Do While Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) <> ""
- 'Aktuelle Zeile in die ListBox eintragen
- ListBox1.AddItem Trim(CStr(Tabelle12.Cells(lZeile, 1).Value))
- lZeile = lZeile + 1 'Nächste Zeile bearbeiten
- Loop
- Do While Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) <> ""
- 'Aktuelle Zeile in die ListBox eintragen
- ListBox1.AddItem Trim(CStr(Tabelle13.Cells(lZeile, 1).Value))
- lZeile = lZeile + 1 'Nächste Zeile bearbeiten
- Loop
- End Sub
*Codetags korrigiert und Spoiler eingefügt* ~NoFear23m
PS: @Benny ändere doch bitte den Titel auf etwas sinnvolleres und erkläre besser wo genau das problem ist. Da es dein erster Beitrag ist sehe ich es dir nochmal nach. Gebe dir aber bitte etwas mehr mühe.
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Nofear23m“ ()