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

letzte zeile der spalte D

Forumthread: letzte zeile der spalte D

letzte zeile der spalte D
21.12.2007 15:16:53
christian
servus ihr profi experten
wie kann ich in einer tabelle per vba die letzte beschriftete zeile in spalte D ermitteln?
wobei ich dazu noch sagen muss das in spalte A durchaus mehr steht als in spalde D.
also nicht nur die letzte zeile sondern die letzte zeile der spalte D.
gruss
christian neu

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzte zeile der spalte D
21.12.2007 15:20:56
Hajo_Zi
Hallo Christian,
Dim LoLetzte As Long
' Das führt zu Fehler unter Versionen vor 2007 falls keine Zelle ausgewählt wurde
If Not TypeOf Selection Is Range Then Exit Sub ‘ Hinweis von Beverly (Karin)
‘ Prüfng ob Tabelle ausgewählt
If TypeName(ActiveSheet) "Worksheet" Then Exit Sub
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

Anzeige
AW: letzte zeile der spalte D
21.12.2007 15:34:52
christian
servus haja
danke für deine schnelle antwort aber leider tut sich gar nix.
was mach ich da falsch?
die datenbank hat in spalte A mehr einträge, als in spalte D.
ich möchte gerne die letzte zeile der spalte D ermitteln und nicht die spalte A:
habe den code so angepasst an meine tabelle namens "Daten"

Private Sub CommandButton6_Click()
Dim LoLetzte As Long
If Not TypeOf Selection Is Range Then Exit Sub
If TypeName(ActiveSheet)  "Daten" Then Exit Sub
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
End Sub


Anzeige
AW: letzte zeile der spalte D
21.12.2007 15:36:11
Hajo_Zi
Hallo Christian,m
Du hast nur eine 1 duch 4 ersetzt.
Gruß Hajo

AW: letzte zeile der spalte D
21.12.2007 15:47:01
christian
ja weil es mit 1 auch net geht

AW: letzte zeile der spalte D
21.12.2007 15:22:07
Thomas
Hi Chrisneu,
Wert oder wat?
Wert: letzter_Wert = Cells(Rows.Count, 4).End(xlUp).Value
Zeile: letzte_Zeile = Cells(Rows.Count, 4).End(xlUp).Row
Gruß,
Thomas

Anzeige
AW: letzte zeile der spalte D
21.12.2007 15:43:44
christian
DANKE THOMAS
ich möchte das der letzte eintrag spalte d markiert wird anscheinend bin ich zu doof dafür ich kapiers net.

AW: letzte zeile der spalte D
21.12.2007 15:26:00
Daniel
Hi
die letzte beschriebene Zelle in Spalte D bekommst du mit
Cells(Cells.rows.count,4).end(xlup)
Gruß, Daniel

AW: letzte zeile der spalte D
21.12.2007 15:46:10
christian
auch dir danke ich daniel
aber das löst mein problem nicht.
ich möchte mit einem comandbutton klick in die letzte zeile der spalte d

Anzeige
AW: letzte zeile der spalte D
21.12.2007 16:08:00
Daniel
Hi
den Commandbutton mit Makro hast du ja offenstilich schon
dann ganz einfach 

Cells(Cells.rows.count,4).end(xlup).select


einfügen, fertig
Gruß, Daniel

AW:fertig daniel hat gewonnen
21.12.2007 16:19:01
christian
ja das war es daniel du hast das problem richtig erkannt.
vielen dank auch den anderen teilnehmern nochmal.
gruss
christian neu

Anzeige
AW: fertig mit Fehler
21.12.2007 16:23:58
Hajo_Zi
Hallo Christian,
es ist nur ein Fehler falls D65536 belegt ist.
Gruß Hajo

AW: fertig mit Fehler
21.12.2007 16:27:00
Daniel
HI
ich denke mal, das kommt so selten vor, das man diesen Fall nicht standardmäßig absichern muss.
Gruß, Daniel

Anzeige
AW: fertig mit Fehler
21.12.2007 16:32:10
Hajo_Zi
Hallo Daniel,
in Excel 2007 musste Extra die Zeilenmzahl und Spaltenzahl erhöht werden. In der Version stimme ich Dir zu das es wohl unwahrscheinlich ist, das die letzte Zelle in der Spalte gefüllt ist.
Gruß Hajo

Anzeige
AW: fertig mit Fehler
21.12.2007 17:18:49
Daniel
Hi
deswegen hab ich ja auch nicht Cells(65536,4).end(xlup) geschrieben, sondern Cells(Cells.Rows.Count, 4).end(xlup).
Cells(Cells.rows.Count,1) sollte doch in beiden Versionen die absolut Letzte Zelle einer Spalte ermitteln, unabhängig von der Zeilenzahl.
Gruß, Daniel
;

Forumthreads zu verwandten Themen

Letzte Zeile
Walter

Hallo Excelfreunde,
Meine Kenntnisse in VBA sind gleich Null. Versuche es gerade zu lernen.
Was muß eingegeben werden damit nur bis zur letzen Zeile gedruckt wird?
Habe diesen Druckbereich. Es können 5 bis 90 Zeilen sein.
Sub BereichDrucken() Range("AE1:AP103").PrintOut Copies...
16.08.2008 09:41:32
Thread-ID: 1002319
7 Beiträge
Anzeige
Textfile letzte Zeile
Petra

Guten Morgen allerseits
mein Beitrag von gestern ist noch offen
https://www.herber.de/forum/messages/1003499.html
ich möchte meine Frage jetzt mal anders formulieren. Ich speichere ein Excelsheet als Textdatei ab. Wie ich auch aus mehreren Beiträgen entnehmen konnte, fügt Excel bei...
22.08.2008 10:08:12
Thread-ID: 1003757
9 Beiträge
Letzte Zeile in neues Blatt kopieren
Matthias

Hallo zusammen,
ich habe zwar in der Suche einiges über die LETZTE ZEILE gefunden, aber mein Problem konnte ich dennoch nicht richtig lösen.
Hier, was ich habe:
- In einer Excel-Datei mehrere Tabellen, die Anzahl kann sich ändern (z.B. Tabelle1, Tabelle2, Tabelle3...Tabelle 30)
...
11.09.2008 07:20:00
Thread-ID: 1008963
7 Beiträge
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
Letzte Zeile kopieren
J.

Hallo zusammen!
Ich benötige ein Script, dass der Buttom die letzte beschriebene Zeile in einem Arbeitsblatt in die freie Zeile darunter kopiert. Wie geht sowas?
VG
J.H.
13.11.2008 10:14:00
Thread-ID: 1024082
4 Beiträge
letzte Zeile in Liste löschen
Uwe

Hallo an Alle,
in Tabelle3 hab ich einen Button, der mir in Tabelle1 in einer Liste den letzten Eintrag löschen soll.
Also die ganze Zeile ohne die Formatierungen zu verlieren.
Die Liste fängt in Tabelle1 ab Spalte B an.
Bei der Recherche hab ich da leider nix passendes gefunden...
23.11.2008 19:04:01
Thread-ID: 1027128
4 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Anzeige
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Anzeige
Letzte Zeile bestimmen
Holger

Hallo zusammen,
wie kann ich ohne VBA die letzte Zeile in einer Formel bestimmen. Den Wert dieser Zelle möchte ich dann weiter verwenden.
Gruss
Holger
04.02.2009 13:12:38
Thread-ID: 1047018
8 Beiträge
letzte Zeile mit Daten
Claudia

Hallo Forum,
wie kann ich per VBA den Wert der letzten Zeile einer bestimmten Spalte (z.B. Spalte B) ausgeben lassen, bei dem in der Spalte links davon das aktuelle Datum drin steht? Kennt wer den Befehl dazu?
11.02.2009 18:37:00
Thread-ID: 1049731
10 Beiträge
letzte Zeile mit Daten
Claudia

Hallo Forum,
wie kann ich per VBA den Wert der letzten Zeile einer bestimmten Spalte (z.B. Spalte B) ausgeben lassen, bei dem in der Spalte links davon das aktuelle Datum drin steht? Kennt wer den Befehl dazu?
11.02.2009 18:37:00
Thread-ID: 1049732
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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