|
Datenbank
| |
|
|
|
|
|
 
|
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
Spieler-ID |
Spieler Tag |
Spieler Name |
|
| |
|
1 |
#8808VUCCJ |
avengers2 |
|
| |
|
2 |
#YQPUCPU9 |
Commander |
|
| |
|
3 |
#2PGVRVQQL |
KK??MI?83 |
|
| |
|
4 |
#22YULLLRR |
MIX83 |
|
| |
|
5 |
#PV8YLLVLP |
KK??Lah0ud |
|
| |
|
6 |
#QG82P29C |
BerkExec1652 |
|
| |
|
7 |
#29RL2VURJ |
KK?ILHAN |
|
| |
|
8 |
#CVUQLG2C |
Kolle |
|
| |
|
9 |
#PLJPG2JYQ |
Halvar |
|
Registrieren:
   
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
Spieler-ID |
|
338 |
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
Spieler Tag |
|
#2PQYPPY8J |
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
Spieler Name |
|
Audi |
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
Modul1
Sub SpielerLoeschen()
'Abfrage, ob Spieler wirklich gelöscht werden soll
Dim Antwort
Antwort = MsgBox("Soll der Spieler wirklich gelöscht werden?", vbYesNo + vbQuestion, "Spieler wirklich löschen?")
If Antwort = vbYes Then
End If
ActiveCell.EntireRow.Delete
End Sub
Sub SpielerChange_EingabeDB()
'Tabelle einlesen
Dim tbl As ListObject
Set tbl = tb_Datenbank.ListObjects(1)
Dim Zeile As Long
'Spieler anlegen oder bearbeiten?
If tb_Eingabeformular.Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = True Then
'Spieler anlegen
'Zeile hinzufügen
tbl.ListRows.Add
'Zeile in Variable speichern
Zeile = tbl.DataBodyRange.Rows.Count
'Spieler bearbeiten
Else
End If
'Datenbank befüllen
With tb_Eingabeformular
tbl.DataBodyRange(Zeile, 1).Value = Range("F12")
tbl.DataBodyRange(Zeile, 2).Value = Range("F14")
tbl.DataBodyRange(Zeile, 3).Value = Range("F16")
End With
'Navigieren zu Tabellenblatt Datenbank
tb_Datenbank.Select
ActiveWindow.ScrollRow = tbl.DataBodyRange(Zeile, 1).Row
tbl.DataBodyRange(Zeile, 1).Select
End Sub
Sub SpielerAnlegen_DBEingabe()
'Tabelle einlesen
Dim tbl As ListObject
Set tbl = tb_Datenbank.ListObjects(1)
With tb_Eingabeformular
'Spalten leeren
.Columns("F").ClearContents
'Spieler-ID einfügen
.Range("F12").Value = tbl.DataBodyRange(tbl.DataBodyRange.Rows.Count, 1).Value + 1
'Navigieren auf das Eingabeformular
.Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = True
.Shapes.Range(Array("txt_Bearbeiten", "img_Bearbeiten")).Visible = False
.Select
'Zelle auswählen
.Range("F12").Select
End With
End Sub
Sub SpielerBearbeiten_DBEingabe()
'tabelle einlesen
Dim tbl As ListObject
Set tbl = tb_Datenbank.ListObjects(1)
Dim Zeile As Long
Zeile = ActiveCell.Row - tbl.HeaderRowRange.Row
With tb_Eingabeformular
'Spalten leeren
.Columns("F").ClearContents
'Eingabeformular befüllen
.Range("F12").Value = tbl.DataBodyRange(Zeile, 1).Value
.Range("F14").Value = tbl.DataBodyRange(Zeile, 2).Value
.Range("F16").Value = tbl.DataBodyRange(Zeile, 3).Value
'Navigieren auf das Eingabeformular
.Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = False
.Shapes.Range(Array("txt_Bearbeiten", "img_Bearbeiten")).Visible = True
.Select
'Zelle auswählen
.Range("F12").Select
End With
End Sub
Hier ist für Userform1 Der dient über eine Piktogramm auf der Tabellenblatt (Registrieren) weil der Tabellenblatt (Datenbank) Ausgeblendet ist
Private Sub TextBox1_Change()
Dim Zeile As Long
'Listbox leeren
Me.ListBox1.Clear
'Schleife über alle Zeilen der Tabelle
For Zeile = 11 To tb_Datenbank.Cells(Rows.Count, 3).End(xlUp).Row
If InStr(1, LCase(tb_Datenbank.Cells(Zeile, 3).Value), LCase(Me.TextBox1.Value)) <> 0 Or _
InStr(1, LCase(tb_Datenbank.Cells(Zeile, 4).Value), LCase(Me.TextBox1.Value)) <> 0 Then
'ListBox befüllen
Me.ListBox1.AddItem tb_Datenbank.Cells(Zeile, 3).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = tb_Datenbank.Cells(Zeile, 4).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = tb_Datenbank.Cells(Zeile, 5).Value
End If
Next Zeile
End Sub
Private Sub UserForm_Initialize()
Dim Zeile As Long
'Schleife über alle Zeilen der Tabelle
For Zeile = 11 To tb_Datenbank.Cells(Rows.Count, 3).End(xlUp).Row
'ListBox befüllen
Me.ListBox1.AddItem tb_Datenbank.Cells(Zeile, 3).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = tb_Datenbank.Cells(Zeile, 4).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = tb_Datenbank.Cells(Zeile, 5).Value
Next Zeile
'UserForm positionieren
Me.Top = 100
Me.Left = 110
'Erstes Element auswählen
Me.ListBox1.Selected(0) = True
End Sub
Hier sollen die Namen aufgelistet werden. Wollte halt alles einfache machen mit Zelle auswählen Listbox erscheint. Über Listfeld auswählen und mit btnLaden(Commandbutton) Einfügen. Von 1 bis 50 Spieler sind,
|