Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte beschriebene Zelle in Spalte

Letzte beschriebene Zelle in Spalte
17.08.2006 17:54:44
Jakob
Hallo,
ich habe folgenden Code mit den Makrorecorder für eine wiederkehrende Aufgabe aufgezeichnet. Also in der Zelle M2 habe ich eine Formel erstellt und diese soll bis zum Ende der Liste kopiert werden. Ich habe aber das Problem, daß die Länge der Liste variert.
Range("M2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC11&lt=TODAY(),""goods have been despatched"","""")"
Selection.AutoFill Destination:=Range("M2:M48"), Type:=xlFillDefault
Range("M2:M48").Select
Wie kann ich es bewerkstelligen, daß der Wert für den Range sich abhängig von der letzten beschriebenen Zelle in der Spalte L automatisch ändert. Spricht, läßt sich in den Code eine Formel einstellen um die letzte beschriebene Zelle zu ermitteln und diese in den Range einzubauen?
Besten Dank für Eure Hilfe.
Gruß
J.Freitag

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte beschriebene Zelle in Spalte
17.08.2006 18:35:07
Heide_Tr
hallo J.
so zum Beispiel:

Sub fuellen()
Range("M2").Select
ActiveCell.FormulaR1C1 = "=IF(RC11<=TODAY(),""goods have been despatched"","""")"
letzte = Range("M65536").End(xlUp).Row
Selection.AutoFill Destination:=Range("M2:M" & letzte), Type:=xlFillDefault
Range("M2:M" & letzte).Select
End Sub

viele Grüße. Heide
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 08:55:37
Jakob
Hallo Heide,
ich bekomme die Meldung, daß die variable "letzte" nicht definiert ist. Als was müßte ich die variable definieren (Dim letzte as ?) ?
Vielen Dank im Voraus.
Gruß
J.Freitag
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 09:13:50
Heide_Tr
hallo J.,
da "letzte" die letzte Zeile beinhaltet (ROW): dim letzte as Integer.
viele Grüße. Heide
Anzeige
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 09:26:41
Erich
Hallo Heide und Jakob,
statt Integer sollte man für Zeilennummern immer Long nehmen.
Integer kann nur Zahlen bis 32767 enthalten, es gibt aber 65536 Zeilen.
Da würde man mit Integer einen Überlauf riskieren.
Grüße von Erich aus Kamp-Lintfort
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 09:32:03
Jakob
Hallo Heide,
jetzt bekomme ich die Fehlermeldung:
Laufzeitfehler '1004':
Die Autofill-Methode des Range-Objektes konnte nicht ausgeführt werden.
Weiß Du Rat?
Gruß
Jakob
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 09:40:22
Erich
Hallo Jakob,
das ist die gleiche Geschichte wie in meinem Code. letzte müsste ermittelt werden als
letzte = Range("K65536").End(xlUp).Row
Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Letzte beschriebene Zelle in Spalte
17.08.2006 19:40:15
Erich
Hallo Jakob,
es geht auch direkt, ohne AutoFill: 

Sub fuellen()
With Range("M2:M" & Range("M65536").End(xlUp).Row)
.FormulaR1C1 = "=IF(RC11<=TODAY(),""goods have been despatched"","""")"
.Select  ' nur wenn das für später gewollt ist
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 09:05:14
Jakob
Hallo Erich,
wenn ich Deinen Code anwende, dann wird die Formel in die Zelle M1 und M2 geschrieben. Was mache ich falsch?
Besten Danke für Deine Hilfe.
Gruß
J.Freitag
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 09:21:59
Erich
Hallo Jakob,
Du machst nichts falsch - der Fehler steckt in meinem Code. Sorry!
Wenn Spalte M zunächst leer ist, wird Range("M65536").End(xlUp).Row = 1,
deshalb wird auch M1 mit der Formel versehen.
Richtig ist, Range("K65536").End(xlUp).Row zu ermitteln, also die letzte Zeile,
in der in Spalte K ein Wert (bei Dir ein Datum) steht.
Also nochmal der korrigierte Code: 
Sub fuellen()
With Range("M2:M" & Range("K65536").End(xlUp).Row)
.FormulaR1C1 = "=IF(RC11<=TODAY(),""goods have been despatched"","""")"
.Select  ' nur wenn das für später gewollt ist
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 10:54:38
Jakob
Hallo Erich,
es hat wunderbar funktioniert.
Besten Dank noch mal für Deine Hilfe.
Grüße
Jakob
AW: Letzte beschriebene Zelle in Spalte
18.08.2006 09:25:52
ingUR
Hallo, Jakob,
wenn Du in Deiner Tabelle eine andere Referenzspalte hast als die Spalte M, die Dir die Zeilenzahl der Tabelle liefert, z.b. die Spalte B, dann verändere die Formel in dieser Zeile:
With Range("M2:M" & Range("B65536").End(xlUp).Row)
Gibt es keine Referenzspalte, dann muß Du ggf. auf die Specialcell-Methode ausweichen, doch da vermute ich bei Deiner Frage stellung nicht.
Gruß,
Uwe
Anzeige

306 Forumthreads zu ähnlichen Themen

Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Anzeige
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
Letzte Leere Zelle in Spalte C
Wacker

Ich habe eine Spalte "C" in der Zahlen fortlaufend erfasst werden.
Bin bereits hier bei Zelle C4500.
Ich müsste jetzt Wissen wie kann ich die Letzte Zelle in der Spalte "C" finden, in der noch keine Zahl Eingetragen ist.
Und dann benötige ich noch für diverse Berechnungen, die Forme...
07.12.2008 22:23:00
Thread-ID: 1030940
9 Beiträge
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
Letzte Zelle finden
Gerhard

Hallo!
Hab eine Beispieldatei von meinen Problem gemacht. Wie bringe ich das hin dass die leere Formel ignoriert wird?
https://www.herber.de/bbs/user/58405.xls
Bitte um Hilfe
Gerhrd
14.01.2009 21:49:00
Thread-ID: 1039825
6 Beiträge
letzte Zeile ermitteln - nebenstehende Spalten mar
Erwin

Hallo Spezialisten,
ich habe eine Tabelle, in der immer in Spalte F unterschiedlich viele Zeilen gefüllt sind.
Spalte G + H sind leer und müssen durch Bearbeiter abgearbeitet werden.
Ich möchte nun Spalte G + H mit einer Farbe (.ColorIndex = 36) "verschönern", damit die User genau w...
02.03.2009 10:03:42
Thread-ID: 1055434
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
2
4
2
9
2
8
4
5
6
6
5
17
6
1
3
3
4
6
2
2
17
2
11
16