Hallo VB-Börsianer,
ich bin neu in der VBA-Programmierung und habe mir hier nun etwas programmiert.
Die Anwendung soll einen Mini-Buchladen in Ansätzen darstellen. Es wird nach und nach noch ausgebaut.
Habe auch schon ein Tutorial dazu angeschaut (finde den Link jetzt leider nicht mehr), jedoch ist das Problem, dass er den Autor in der zweiten Zeile der Excel-Datei nicht findet obwohl er doch da ist.
Suche ich nach dem Titel zu dem entsprechenden Autor (der vorher nicht gefunden wurde), so findet er das Buch.
Könnt ihr mir vllt sagen wo hier der Fehler liegt?
Vielen Dank euch schon mal im Voraus!
ich bin neu in der VBA-Programmierung und habe mir hier nun etwas programmiert.
Die Anwendung soll einen Mini-Buchladen in Ansätzen darstellen. Es wird nach und nach noch ausgebaut.
Habe auch schon ein Tutorial dazu angeschaut (finde den Link jetzt leider nicht mehr), jedoch ist das Problem, dass er den Autor in der zweiten Zeile der Excel-Datei nicht findet obwohl er doch da ist.
Suche ich nach dem Titel zu dem entsprechenden Autor (der vorher nicht gefunden wurde), so findet er das Buch.
Könnt ihr mir vllt sagen wo hier der Fehler liegt?
Visual Basic-Quellcode
- Private Sub ComboBox1_Change()
- End Sub
- Private Sub CommandButton3_Click()
- Dim x As Variant
- Z = Sheets(1).UsedRange.Rows.Count
- x = ComboBox2
- temp = 0
- For i = 2 To Z
- If Cells(i, 2) = x Then
- temp = 1
- Exit For
- End If
- Next
- If temp = 1 Then
- Unload Me
- zeile = i
- UserForm2.Show
- Else
- MsgBox "Autor ist nicht vorhanden ", vbExclamation
- ComboBox2 = ""
- End If
- End Sub
- Private Sub CommandButton1_Click()
- Dim x As Variant
- Z = Sheets(1).UsedRange.Rows.Count
- x = ComboBox1
- temp = 0
- For i = 2 To Z
- If Cells(i, 1) = x Then
- temp = 1
- Exit For
- End If
- Next
- If temp = 1 Then
- Unload Me
- zeile = i
- UserForm2.Show
- Else
- MsgBox "Buch ist nicht vorhanden ", vbExclamation
- ComboBox1 = ""
- End If
- End Sub
- Private Sub CommandButton2_Click()
- Unload Me
- End Sub
- Private Sub UserForm_Initialize()
- With ComboBox1
- .AddItem "Er ist wieder da"
- .AddItem "1913"
- .AddItem "Winter der Welt"
- .AddItem "Die Kunst des Klaren Denkens"
- .AddItem "Böser Wolf"
- .AddItem "BLUFF! Die Fälschung der Welt!"
- .AddItem "Überman"
- .AddItem "Spielball Erde"
- .AddItem "Der Gefangende des Himmels"
- .AddItem "Ziemlich beste Freunde"
- .AddItem "Im Tal des Fuchses"
- .AddItem "Der Hobbit"
- .AddItem "Die Welt aus den Fugen"
- .AddItem "Als Helmut Schmidt einmal..."
- .AddItem "Wir sind doch Schwestern"
- .AddItem "Verstehen Sie das, Herr Schmidt"
- .AddItem "Das Shicksal ist ein mieser Verräter"
- .AddItem "Jesus von Nazareth. Prolog - Die Kindheitsgeschichten"
- .AddItem "Ein plötzlicher Todesfall"
- .AddItem "Neukölln ist überall"
- .AddItem "Verachtung"
- .AddItem "Schnelles Denken, langsames Denken"
- .AddItem "Hundert Namen"
- End With
- With ComboBox2
- .AddItem "Timur Vemes"
- .AddItem "Florian Illies"
- .AddItem "Ken Follett"
- .AddItem "Rolf Dobelli"
- .AddItem "Nele Neuhaus"
- .AddItem "Manfred Lütz"
- .AddItem "Tommy Jaud"
- .AddItem "Claus Kleber, Cleo Pascal"
- .AddItem "Carlos Ruiz Zafòn"
- .AddItem "Philippe Pozzo di Borgo"
- .AddItem "Charlotte Link"
- .AddItem "John R.R Tolkien"
- .AddItem "Peter Scholl-Latour"
- .AddItem "Jost Kaiser"
- .AddItem "Anne Gesthuysen"
- .AddItem "Helmut Schmidt, Giovanni dir Lorenzo"
- .AddItem "John Green"
- .AddItem "Benedikt XVI."
- .AddItem "Joanne K. Rowling"
- .AddItem "Heinz Buschkowsky"
- .AddItem "Jussi Adler-Olsen"
- .AddItem "Daniel Kahnemann"
- .AddItem "Cecilia Ahern"
- End With
- End Sub
Vielen Dank euch schon mal im Voraus!