Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Letzten Wert +1 und Anzeige in Textbox

Forumthread: Letzten Wert +1 und Anzeige in Textbox

Letzten Wert +1 und Anzeige in Textbox
13.02.2019 10:47:48
Steve
Hallo
bis jetzt konnte ich mir immer durch diverse Forumsbeiträge selbst helfen. Doch nun weiß ich nicht weiter.
Ich habe eine Userform mit mehreren Textboxen und Commandbuttons erstellt.
Ich möchte nun den letzten Wert in Spalte A eines Tabellenblatts ermitteln (das wäre aktuell z.B. B) und möchte dann aber den nächsthöheren Buchstabe C in der Textbox der Userform angezeigt bekommen.
Ich hoffe ich habe mich verständlich ausgedrückt.
Danke schon im Voraus für eure Hilfe.
Grüße
Steve
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Letzten Wert +1 und Anzeige in Textbox
13.02.2019 11:06:42
ede
Hallo Steve,
bei Buchstaben könntest du es so versuchen... 

Nachfolger = Chr(Asc("A") + 1)

gruss
AW: Letzten Wert +1 und Anzeige in Textbox
13.02.2019 11:09:28
Sven
Hallo,
die letzte Zelle könntest Du so ermitteln. 
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Und das mit dem Buchstaben hat ja der ede schon beschrieben.
Grüße
Anzeige
AW: Letzten Wert +1 und Anzeige in Textbox
13.02.2019 11:37:53
Steve
Danke schon mal.
Also den letzten Wert bekomme ich jetzt in der Textbox angezeigt:
TextBox1.Text = Sheets("History").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row).Text
Aber wie sieht der Code aus, wenn ich jetzt den Buchstabe noch erhöhen möchte und diesen dann in der TextBox1 angezeigt wird?
Anzeige
AW: Letzten Wert +1 und Anzeige in Textbox
13.02.2019 11:43:04
ede 

Nachfolger = Chr(Asc(TextBox1.Text) + 1)

AW: Letzten Wert +1 und Anzeige in Textbox
13.02.2019 11:46:37
ede 

TextBox1.Text = Chr(Asc(Sheets("History").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row).Text)  _
+ 1)

AW: Letzten Wert +1 und Anzeige in Textbox
13.02.2019 12:13:18
Steve
Vielen lieben Dank. Funktioniert super.
Anzeige
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum