Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > Fragen zu Excel/VBA > Textbox aktualisieren
Hier kannst Du Fragen speziell zu Deinem Problem stellen
In diesem Board befinden sich 1682 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH, .
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


 ist offline  Textbox aktualisieren Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
28.12.2016 - 15:19 Uhr
Posts



Hallo Zusammen,

in meiner Userform lasse ich im Textfeld1 die letzte bearbeitete Nummer aus meiner Tabelle anzeigen. Im Textfeld3 wird die aktuelle, nun zu vergebene Nummer angezeigt. Mit einem CommandButton werden die Daten in die Tabelle übernommen.

Jetzt sollten sich aber die Textfelder 1 und 3 aktualisieren, damit die nächste Eingabe erfolgen kann. Mit Unload me und Userform.show kann ich hier nicht arbeiten, da die restlichen Eingaben stehen bleiben sollen.

Hab schon einiges probiert, aber leider ohne Erfolg.

Hat jemand eine Idee?


Private Sub CommandButton1_Click()
Dim letzte_Zeile As Long

With Worksheets("Inventarisierungsdaten")

letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(letzte_Zeile, 1) = Cells(letzte_Zeile - 1, 1)
.Cells(letzte_Zeile, 8) = TextBox2.Text 'LS-Datum
.Cells(letzte_Zeile, 9) = ComboBox3.Text 'Gebäude
.Cells(letzte_Zeile, 11) = ComboBox5.Text 'Dezernat
.Cells(letzte_Zeile, 12) = ComboBox6.Text 'Benutzer
.Cells(letzte_Zeile, 2) = TextBox3.Text 'InventarNr
.Cells(letzte_Zeile, 7) = TextBox4.Text 'S/N
.Cells(letzte_Zeile, 3) = ComboBox1.Text 'Typ
.Cells(letzte_Zeile, 4) = ComboBox2.Text 'Hersteller
.Cells(letzte_Zeile, 3) = TextBox5.Text 'Modell

End With

End Sub


Ich bin für jeden Hinweis dankbar.

Gruß
Anderl

 ist offline  : Textbox aktualisieren Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
28.12.2016 - 17:51 Uhr
Posts



Hi,

TextBox1.Text = TextBox1.Text + 1
TextBox3.Text = TextBox1.Text + 1

Gruß Roland

 ist offline  : Textbox aktualisieren Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
29.12.2016 - 7:41 Uhr
Posts



Hallo Roland,

vielen Dank für Deine Hilfe, genau so muss es sein.

Ich muss aufhören, kompliziert zu denken, es ist doch eigentlich logisch.

Gruß
Anderl

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek