Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.12.2023 17:20:17
VORPLANUNG Sortierte Übernahme Personendaten von Tab1->Ta
03.12.2023 16:47:46
vergleiche 2 zellen
02.12.2023 23:35:18
2 Tabellen in einem Arbeitsblatt zusammenfügen
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte Zelle aus Tabelle in Textbox

letzte Zelle aus Tabelle in Textbox
Ingo
Liebe Profis,
ich habe eine userform mit einigenTextboxen, die Daten aus einer Tabelle"namen" beziehen, was auch gut funktioniert, jetzt möchte ich aber in Textbox8 einen Wert ( zuletzt eingegebenes Datum) aus einer anderen Tabelle anzeigen lassen, und zwar aus Tabelle "Erfassung" Spalte a immer letzte Zelle( eintrag) sobald ich die userform öffne. Zweck der Sache : " Die letzte Eingabe war am:" > Anzeige Texbox Es würde auch eine msgbox gehen, die beim öffnen der userform, das oben a.E. zeigt.
Wenn es nicht zuviel Umstände macht möchte ich auch in tabelle "Erfassung" das höchste Datum immer an letzter Stelle haben, auch wenn über die Userform ein früheres Datum eingegeben wird. D.h. permanente Sortierung aufsteigend. ( letzteres ist aber nicht sooo wichtig)
Weiss jemand Rat?
Vielen Dank im vorraus
Ingo

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: letzte Zelle aus Tabelle in Textbox
21.09.2011 16:21:51
Rudi
Hallo,
Textbox1=Format(Sheets("Erfassung").Cells(Rows.Count,1).End(xlup),"DD.MM.JJJJ")
Und die Sortierung nach Eintragen in Erfassung:
With Sheets("Erfassung")
.Range("A1").Sort Key1:= .Range("A2"), Order1:= xlAscending, Header:= xlYes
End With
Gruß
Rudi
AW: letzte Zelle aus Tabelle in Textbox
21.09.2011 18:30:08
Ingo
Hallo Rudi,
vielen Dank für die schnelle Antwort. Ich bin immer wieder erstaunt, wie schnell und "leicht" ihr die Lösung findet! Das mit der Textbox hat gut funktioniert, allerdings musste ich JJJJ in YYYY umwandeln, Weiss aber nicht warum;-(
Dann die Sortierung klappt leider noch nicht. Ich habe deinen Code in Sub Userform_initialize kopiert und wie folgt abgeändert
With Sheets("Erfassung")
.Range("A1").Sort Key1:= .Range("A2"), Order1:= xlAscending, Header:= x2Yes
End With
weil die Überschrift in Spalten A2 bis M2 steht, bei =x1Yes wurde die Überschrift immer nach unten versetzt.
Leider werden die Datumsangaben nicht sortiert, kann es sein, dass die Sortierung bis Spalte M ausgeweitet werden muß? Die letzte Eingabe war immer in der letzten Zeile und wurde nicht einsortiert( z.B. 18.08.2011 stand unter 19.09.2011.
Oder liegt es vielleicht an der Formatierung Spalte a, da habe ich Zellen formatieren Benutzerdef. DD,MM,JJJJ eingestellt. Diese Spalte a bekommt die daten über Userform Textbox1, die von einem Kalender übernommen werden
Gruß
Ingo
Anzeige
AW: letzte Zelle aus Tabelle in Textbox
21.09.2011 19:49:50
Rudi
Hallo,
steht was in Zeile 1? Ich hoffe nicht.
x2Yes ist Unsinn. Ich wundere mich, dass der Compiler nicht meckert. Es muss XLYES heißen und bedeutet, dass eine Überschrift vorhanden ist.
Probier's mal mit
With Sheets("Erfassung")
.Range("A2").Sort Key1:= .Range("A3"), Order1:= xlAscending, Header:= xlYes
End With
Gruß
Rudi
AW: letzte Zelle aus Tabelle in Textbox
21.09.2011 20:59:26
Ingo
Hallo Rudi,
vielen Dank für Deine Zeit und Mühe, in Zeile 1 stand vorher was, habe ich jetzt geändert. Aber, es geht immer noch nicht, ist aber nicht so schlimm, ich kann die Tabelle ja anschließend mit Daten sortieren auf Stand bringen. Kommt nicht so häufig vor, dass nachträglich noch ein früheres Datum eingegeben wird.
Also nochmal vielen Dank.
Ingo
Anzeige
AW: letzte Zelle aus Tabelle in Textbox
21.09.2011 19:51:08
Gerd
Hallo Ingo,
das heist nicht x1Yes oder x2Yes sondern IXELYes, also xlYes.
Gruß Gerd

389 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Wert in farbiger Zelle addieren
thomas

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...
13.08.2008 12:56:00
Thread-ID: 1001497
4 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge

Links zu Excel-Dialogen

TextBox
UserForm
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige