Excel/DB VBA Verwaltung erweitern

Guten Tag
Ich habe eine einfache VBA-DB Funktion für die Datenerfassung aus einem übungsbeispiel (Datenbank) für ein Sportanlass umfunktioniert
Zudem eine reine Excel-Suchfunktion mit DBauszug() welche mir die ID ausspuckt
Und eine Rangliste
Die Tabellen sind Tabelle1 (Datenbank), Tabelle2 (Suche), Tabelle4 (Rangliste)
Jetzt habe ich zwei Probleme
Mit der Suchfunktion finde ich ein Eintrag die ID wird im Feld B7 angezeigt. Jetzt möchte ich die Datenmaske öffnen und es soll automatisch zum Eintrag springen die mir die Suchfunktion ausgegeben hat.
Zudem möchte ich per Knopfdruck diese ID in die Rangliste übertagen und zwar in die erste Leere Zelle in der Spalte C (wenn es einfacher geht kann ich auch mit Spalte A arbeiten)
Sagt mir wenn ihr mehr Informationen benötigt.
Danke im Voraus. :-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Zyrianer,
(... Eintrag und Speicherfunktion)? Oder gibt es da etwas zu beachten?
Es sollte eigentlich funktionieren. Teste mal, was passiert wenn in der Datenbank noch kein Datensatz eingetragen ist und die Rangliste noch einen ID eintrag hat.
Ich werde mich auch noch nach einer ID Variante umschauen die weniger Fehleranfällig ist, danke für den Input.
Ich hab dir unten mal in das entsprechende Makro eine bewährte Methode eingebaut.
Sie hat auch den Vorteil, dass du die Liste in der Datenbank beliebig sortieren kannst.
Gruß
Franz

'Neuer Eintrag Schaltfläche Ereignisroutine
Private Sub CommandButton1_Click()
Dim lZeile As Long
Dim bZeile As Long
'Wenn der Benutzer einen neuen Eintrag erzeugen möchten
'erstellen wir einen neuen Eintrag in der ListBox und markieren
'diesen, damit der Benutzer die Daten eintragen kann
'nächste ID-Nr in Spalte A ermitteln
bZeile = Application.WorksheetFunction.Max(Tabelle1.Columns(1))
If bZeile = 0 Then
bZeile = 1 '1 .Nummer der ID-Nummern setzen
Else
bZeile = bZeile + 1
End If
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.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!
Tabelle1.Cells(lZeile, 1) = CStr(bZeile)
'Und neuen Eintrag in die UserForm eintragen
ListBox1.AddItem CStr(bZeile)
'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

Beliebteste Forumthreads (12 Monate)

Excel/DB VBA Verwaltung erweitern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel/DB VBA Verwaltung erweitern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread