Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > VBA Eintrag in Tabelle Editieren
Normale Version: VBA Eintrag in Tabelle Editieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Deeage

01.07.2019, 15:38
Hallo zusammen,

habe oft was gefunden aber nicht wirklich verstanden. Ich würde gerne folgendes machen.

Listboxeintrag:

Dennis     11.02.2015     5000€
Stefan      12.01.2019     6000€


Diese Daten lade ich mir in Textboxen:

Textbox1 = Dennis
Textbox2 = 11.02.2015
Textbox3 = 5000€

Jetzt würde ich gerne den Betrag Editieren auf 2000€, Also möchte ich den Betrag in der Textbox3 ändern und in der Tabelle ("Gehalt") und Listbox aktualisieren. Wie macht man das ?? Also das reinladen in die TextBoxen ist kein Problem nur das ändern in der Tabelle und in der Listbox. Denke das macht man mit Speicher Variablen ect, Hoffe für euch ist das eine einfache Sache Smile

Klaus-Dieter

01.07.2019, 15:39
Hallo,

bestimmt, noch leichter mit einer Beispieldatei.

Deeage

02.07.2019, 08:18
Hallo Smile

anbei mal die Testdatei. Bei Doppelklick gehen die Infos in die TextBoxen. Jetzt möchte ich dort einen Eintrag verändern und er soll das in der Tabelle1 wie auch in der Listbox direkt aktualisieren.

Ich weiß leider nicht wie.

Gruß

Klaus-Dieter

02.07.2019, 08:25
Hallo,

das ist etwas aufwändiger. Stelle dir heute Abend mal ein Beispiel ein.

Case

02.07.2019, 09:42
Hallo, :19:

probiere es mal so: :21:
[attachment=25131]

Deeage

02.07.2019, 12:12
Hallo,

sieht wirklich simple aus und funktioniert super. Dachte man muss das zwischenspeichern ect. 

Kann ich jetzt auch einen Eintrag löschen ? Ist das auch so simple ? Würde mich freuen wenn du da noch helfen kannst Smile


100 Dank an euch alle.. Super ..

Gruß

Dennis

Case

02.07.2019, 12:27
Hallo, :19:

z. B. so: :21:
[attachment=25138]

snb

02.07.2019, 13:37
Kann auch in VBA:

Im Design Mode
- Textbox2 und Textbox 3 umbenennen
- LIstbox1 columncount=3


Code:
Private Sub UserForm_Initialize()
    ListBox1.List = Worksheets("Tabelle1").Cells(1).CurrentRegion.Value
End Sub

Private Sub ListBox1_Change()
    If ListBox1.ListIndex > -1 Then
       For j = 1 To 3
         Me("Textbox" & j) = ListBox1.Column(j - 1)
       Next
    End If
End Sub

Private Sub TextBox1_Change()
    If ListBox1.ListIndex > -1 Then ListBox1.Column(0) = TextBox1.Text
End Sub
Private Sub TextBox2_Change()
    If ListBox1.ListIndex > -1 Then ListBox1.Column(1) = TextBox2.Text
End Sub
Private Sub TextBox3_Change()
    If ListBox1.ListIndex > -1 Then ListBox1.Column(2) = TextBox3.Text
End Sub

Private Sub CommandButton2_Click()
    If ListBox1.ListIndex > -1 Then ListBox1.RemoveItem ListBox1.ListIndex
End Sub

Deeage

03.07.2019, 07:59
Hallo,

super vielen Dank Smile Habe damit alles was ich wollte … 

Top LEUDDE hier Smile
Clever-Excel-Forum > Office-Anwendungen > Excel > VBA Eintrag in Tabelle Editieren