Thema Datum  Von Nutzer Rating
Antwort
Rot Eintrag ändern und Eintrag löschen
22.11.2021 16:19:54 Diana
NotSolved
22.11.2021 16:37:08 Gast67281
NotSolved
24.11.2021 08:44:59 Diana
**
NotSolved
24.11.2021 13:31:15 Gast22168
NotSolved
24.11.2021 14:08:23 Diana
NotSolved

Ansicht des Beitrags:
Von:
Diana
Datum:
22.11.2021 16:19:54
Views:
94
Rating: Antwort:
  Ja
Thema:
Eintrag ändern und Eintrag löschen

Guten Tag Allerseits

Als erstes müsst ihr wissen, dass ich ein absoluter Noob bin. Ich habe bereits überall nach meinem Problem gesucht, aber nichts gefunden.

Eigentlich habe ich das Gefühl, dass es was ganz simples ist, aber ich schaffe es einfach nicht es umzusetzen.

Ich habe eine Userform erstellt um Daten aus einer Excel-Liste übersichtlicher anzuzeigen.

Es gibt eine Such Combobox die nach den Einträgen sucht (aus Spalte A). Wenn der gewünschte Eintrag gefunden ist, werden die Daten von Spalte B bis F in Textboxen in der UserForm angezeigt. 

Nun möchte ich gerne, dass man den Eintrag ändern, oder löschen kann via Befehlschaltflächen. Also bei der Änderung soll man direkt in den angezeigten Textboxen den Eintrag (Zelle) überschreiben und mit einer Schaltfläche ändern können. 

Und das löschen würde über eine Schaltfläche der angezeigte Eintrag (Zelle) löschen.

Wichtig hier ist vielleicht, dass ich nicht mit einer Textbox die Suche nach Einträgen starte, sondern mit einer Combobox.

If ComboBox1_Suche.Value <> "" Then
AAAZ = CDbl(ZZFFF2.Range("A2:A5002").Cells.Find(What:=ComboBox1_Suche.Value, lookat:=xlWhole).Row)
TextBox2_STK.Value = ZZFFF2.Cells(AAAZ, 2).Value
TextBox3_TelSTK.Value = ZZFFF2.Cells(AAAZ, 3).Value
TextBox4_STV.Value = ZZFFF2.Cells(AAAZ, 4).Value
TextBox5_TelSTV.Value = ZZFFF2.Cells(AAAZ, 5).Value
TextBox6_Division.Value = ZZFFF2.Cells(AAAZ, 6).Value
End If

End Sub

______________________

Private Sub UserForm_Initialize()

ZZFFF2.Activate
With ZZFFF2
ComboBox1_Suche.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With

End Sub

 

Kann mir bitte bitte bitte jemand helfen?

Besten Dank schon mal

Diana


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Eintrag ändern und Eintrag löschen
22.11.2021 16:19:54 Diana
NotSolved
22.11.2021 16:37:08 Gast67281
NotSolved
24.11.2021 08:44:59 Diana
**
NotSolved
24.11.2021 13:31:15 Gast22168
NotSolved
24.11.2021 14:08:23 Diana
NotSolved