11.11.2017, 14:00 (Dieser Beitrag wurde zuletzt bearbeitet: 11.11.2017, 14:18 von MdeJong.)
Hallo liebe Excelfreunde.
ich bin dabei mir eine eigene Filmliste zu erstellen, die ich über eine Userform mir anzeigen lassen will und auch anschließend evtl. Änderungen eingeben möchte, die ich dann wieder an das Tabellenblatt schicken kann.
Eine andere userform zum neu einbuchen neuer Filme habe ich dort schon.
Leider hänge ich fest, mir in der Userform "BluRayListe" die Daten aus der Tabelle in die Userform einlesen zu lassen.
hier mal den Code für die Suche
es wird nach dem Filmtitel aus Textbox19 in Spalte B gesucht
Code:
Private Sub CommandButton1_Click()
Dim c As Range
Dim strSuche As String
strSuche = Trim(TextBox19.Text)
If strSuche <> "" Then
With Sheets("BluRay-Liste")
Set c = .Columns(2).Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
TextBox20.Value = .Cells(c.Row, 1).Value
TextBox18.Value = .Cells(c.Row, 3).Value
'und so weiter und sofort
Else
MsgBox "Film nicht gefunden"
End If
End With
End If
End Sub
wenn du das Prinzip verstanden hast wirst du die restlichen TextBoxen selber befüllen können
hier mal den Code für die Suche
es wird nach dem Filmtitel aus Textbox19 in Spalte B gesucht
Code:
Private Sub CommandButton1_Click()
Dim c As Range
Dim strSuche As String
strSuche = Trim(TextBox19.Text)
If strSuche <> "" Then
With Sheets("BluRay-Liste")
Set c = .Columns(2).Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
TextBox20.Value = .Cells(c.Row, 1).Value
TextBox18.Value = .Cells(c.Row, 3).Value
'und so weiter und sofort
Else
MsgBox "Film nicht gefunden"
End If
End With
End If
End Sub
wenn du das Prinzip verstanden hast wirst du die restlichen TextBoxen selber befüllen können
MfG Tom
Ich danke die....versuche es....sollte ich daran Verzweifeln, darf ich da auf deine Hilfe hoffe? ;)
11.11.2017, 14:49 (Dieser Beitrag wurde zuletzt bearbeitet: 11.11.2017, 14:49 von MdeJong.)
Filmliste.xlsm (Größe: 44,53 KB / Downloads: 1)
Hier noch einmal meine aktuell Filmliste mit Änderungen beim buchen für fortlaufende Filmnummernvergabe, wobei mir Crazy Tom so schön geholfen hat.
Filmliste.xlsm (Größe: 46,62 KB / Downloads: 1)
Hallo Crazy Tom,
danke noch einmal für die Anfangshilfe zum einlesen der daten in userform.
Habe fast alle Boxen füllen können, nur nicht die Listbox1.
Habe meine Mappe jetzt noch einmalhier hineingestellt.
In der ist in der userform "BluRayliste" noch ein Zusatzbutton für die Suche.
Suche über Maske....dort würde ich gerne einen Suchbegriff eingeben und wenn der Film gefunden wurde alles angezeigt wird.
Die TextBoxen geben noch nicht das genau Format wieder wie aus der Datentabelle.....aber ich denke, das man das Problem später bearbeiten könnte ,oder?
was soll denn in den Listboxen erscheinen?
und warum Listboxen?
Listboxen sind doch eher für Listen, sacht doch schon der Name
in deiner Tabelle sind aber keine Listen die in der Listbox dargestellt werden könnten
ich würde die Suche auch nicht über eine neue Userform realisieren sondern dann eher schon mit einer Inputbox
diesen Code hinter den ursprünglichen Suchbutton
Code:
Private Sub CommandButton1_Click()
Dim c As Range
Dim strSuche As String
strSuche = InputBox("Filmname eingeben", "Filmsuche")
If strSuche <> "" Then
With Sheets("BluRay-Liste")
Set c = .Columns(2).Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
TextBox20.Value = .Cells(c.Row, 1).Value
TextBox18.Value = .Cells(c.Row, 3).Value
TextBox16.Value = .Cells(c.Row, 4).Text
TextBox14.Value = .Cells(c.Row, 5).Value
TextBox17.Value = .Cells(c.Row, 6).Value
TextBox13.Value = .Cells(c.Row, 7).Value
TextBox15.Value = .Cells(c.Row, 8).Value
TextBox12.Value = .Cells(c.Row, 9).Value
TextBox10.Value = .Cells(c.Row, 10).Value
TextBox11.Value = .Cells(c.Row, 11).Value
ListBox1.Value = .Cells(c.Row, 12).Value
TextBox21.Value = .Cells(c.Row, 14).Value
'und so weiter und sofort
Else
MsgBox "Film nicht gefunden"
End If
End With
End If
End Sub
nu muss ich erstmal Gassi gehen
MfG Tom
Folgende(r) 1 Nutzer sagt Danke an Crazy Tom für diesen Beitrag:1 Nutzer sagt Danke an Crazy Tom für diesen Beitrag 28 • MdeJong
Private Sub UserForm_Initialize()
Dim lngZeile As Long
Dim varGenre As Variant
varGenre = Sheets("Genre").Range("A1:A20")
With ComboBox1
.List = varGenre
.ListIndex = 0
End With
With Worksheets("BluRay-Liste")
lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
TextBox1.Value = .Cells(lngZeile, 1).Value + 1
End With
TextBox1.Enabled = False
End Sub
muss ich dann nur noch für deb Code so abändern? um die anderen auch füllen zu lassen?
Private Sub UserForm_Initialize()
Dim lngZeile As Long
Dim varGenre As Variant
varGenre = Sheets("Genre").Range("A1:A20")
With ComboBox1
varGenre = Sheets("Genre").Range("D2:D6")
With ComboBox2
varGenre = Sheets("Genre").Range("H2:H5")
With ComboBox3
.List = varGenre
.ListIndex = 0
End With
With Worksheets("BluRay-Liste")
lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
TextBox1.Value = .Cells(lngZeile, 1).Value + 1
End With
TextBox1.Enabled = False
End Sub