Kundendatenbank erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Philipp,
ich weiß zwar nicht was Du gemacht hast, aber ich kann keinen einzigen Button anklicken (Cursor ist ein Kreuz)
Aber egal.
Wie willst Du das ganze umsetzen?
Beispiel Ändern:
Man klickt auf Ändern.
Soll dann auch deine Suchmaske aufgehen um den Datensatz auszuwählen?
Die Daten sind dann irgendwann geändert. Wie solll jetzt die Datenübernahme gestartet werden? (button klick (der fehlt dann noch)? oder soll bei jeder Änderung ohne nachfragen gespeichert werden (nicht zu empfehlen, da dann Änderungen nicht mehr verworfen werden können und es sehr zeitintensiv werden kann.
Andere Möglichkeit wäre änderungen über ein seperates Formular zu machen (Userform) die du entwerfen kannst (wäre aber wahrscheinlich doppelt gemoppelt).
Ähnliche Fragen kommen dann bei löschen und neu einfügen auch auf.
Beim löschen, wie sol lder DS ausgewählt werden?
Beim Neu anlegen, bei welcher Aktion soll der DS gespeichert werden.
Den zusätzlichen Button um die Aktion abzuschliessen könnte man auch bei Bedarf dann einblenden und sonst unsichtbar machen.
Sag mal wie du es machen willst
Gruß
yummi

Hallo Philipp,
es hat eine Zeile gefehlt:


Private Sub ListBox1_Click()
Dim strFirma As String
Dim zeile As Long
Dim rng As Range
Dim letztezeile As Long
strFirma = Me.ListBox1.Text
letztezeile = ThisWorkbook.Sheets("Kundenliste").Cells(Rows.Count, 6).End(xlUp).Row
Set rng = ThisWorkbook.Sheets("Kundenliste").Range("F2:F" & letztezeile).Find(strFirma)
If Not rng Is Nothing Then
Importiere (rng.Row)
 lZeile = rng.Row
End If
End Sub

Es fehlt noch das "ablöschen" deines formulars, aber da hast du ja gesagt, das kriegst du hin.
Evtl noch dein suchenfenset nach auswahl schliessen (ist Geschmackssache)
Zum Handling:
1. Klick auf auf den button, dein suchfenster öffnet sich
2. eingabe wwas du sichst
3. suchen button klicken
4. DS wird im Formular dargestellt.
5. Jetzt kann das Suchenfenster geschlossen werden (oder mit nächsten klick auf den menu button)
6. Änderungen im Formular vornehmen oder bei löschen mit dem nächsten punkt weiter)
7. Menübutton klicken
8. Änderung wird übernommen bzw. DS wird gelöscht
9. freigeben des formulars fehlt noch
So ist es mom umgesetzt
Was Du noch machen kannst um fehlbedienung zu unterbinden: in den button funktionen beim 2. klick lZeile = 0 ergänzen. Probier mal aus, so kannst du das System durch fehlbedienung noch aushebeln denke ich. Ich hoffe, das hilft dir erstmal weiter, viel spass beim verfeinern und spielen ;-)
Gruß
yummi

Function Beschleunigung(ByVal bAn As Boolean) If bAn = True Then With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With Else With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End If End Function

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kundendatenbank erstellen

11 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)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread