Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte leere Zelle

Letzte leere Zelle
10.07.2008 09:26:53
Sebastian
Hallo Excel Fans.
Und zwar sitze ich an einem Makro und komme nicht weiter.
In Spalte A ist eine Liste. Sie fängt in A2 and und das Ende ist unbekannt.
Jetzt möchte ich, das er per makro die erste Zelle in der kein sichtbarer Wert (Formel ist schon in der Zelle)
ist auswählt. Ich habe da schon mal eine Lösung bekommen, aber die Funktioniert leider nicht so ganz.
Hoffentlich kann mir wer helfen.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte leere Zelle
10.07.2008 10:06:00
Gerd
Hallo Sebastian,
die erste Zelle in der kein sichtbarer Wert (Formel ist schon in der Zelle),
von oben oder von unten ?
Ist es egal, ob ganz leer oder mit Formel ohne Wertanzeige ?
Gruß Gerd

AW: Letzte leere Zelle
10.07.2008 10:08:44
Jan
Hallo Sebastian,
die einfachste Lösung die ich kenne ist:
Letzte Zeile in Spalte ermitteln
Blatt "Data" Spalte 1 = A
LastRow = Worksheets("Data").Cells(Cells.Rows.Count, 1).End(xlUp).Row
Ich hab aber auch noch weitere Infos angehangen
https://www.herber.de/bbs/user/53709.doc
Gruß Jan L.

Anzeige
AW: Letzte leere Zelle
10.07.2008 11:52:47
Sebastian
vielen Dank für euere schnelle Hilfe.
-------|---A---|---B---|
[--1--] 12
[--2--] 32
[--3--] 42
[--4--] 42
[--5--] 34
[--6--]
[--7--]
So sieht meine Tabelle aus. Jetzt will ich das er die Spalte A von oben her absucht und dann die erste Zelle auswählt in der ein Wert größer 0 ist.
Danke
PS: Vielen Dank Jan L. die Formel nimmt er leider nicht und mit dem Anhang kann ich nichts anfangen Aber trotzdem Danke

AW: Letzte leere Zelle
10.07.2008 11:53:30
Sebastian
vielen Dank für euere schnelle Hilfe.
-------|---A---|---B---|
[--1--] 12
[--2--] 32
[--3--] 42
[--4--] 42
[--5--] 34
[--6--]
[--7--]
So sieht meine Tabelle aus. Jetzt will ich das er die Spalte A von oben her absucht und dann die erste Zelle auswählt, in der ein Wert größer 0 ist.
Danke
PS: Das Blatt "Data" Spalte 1 = A nimmt er nicht. Aber trotzdem Danke

Anzeige
AW: Letzte leere Zelle
10.07.2008 12:24:00
AK
Hallo Sebastian,
stehen in Spalte A nur die Werte oder stehen dort Formeln und du suchst nach der ersten Zelle, deren Formel das Ergebnis größer 0 hat?
Gruß
Andreas

AW: Letzte leere Zelle
10.07.2008 12:52:00
Sebastian
Ja in spalte A stehen formeln.
-------|---A---|---B---|
[--1--] 12
[--2--] 32
[--3--] 42
[--4--] 42
[--5--] 34
[--6--]
[--7--]
In 6 A und 7 A stehen auch formeln nur die ergeben keinen wert. Das Makro soll mir A6 auswhälen.

AW: Letzte leere Zelle
10.07.2008 13:02:52
AK
dann müßte dieser Code genau das tun, was du willst:

Private Sub CommandButton1_Click()
Cells(1, 100).Delete
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 1).Copy
Cells(1, 100).PasteSpecial Paste:=xlPasteValues
If Cells(1, 100) = "" Then
Cells(i, 1).Activate
Exit For
End If
Next
Cells(1, 100).Delete
End Sub


Die Zelle cells(1,100) nutze ich zum rechnen, die mußt du umändern, falls du die auf deinem Arbeitsblatt bereits verwendest. Das ist in Excel die Zelle CV1.
Der Code funktioniert für den CommandButton1, den mußt du natürlich noch auf deinem Blatt erstellen.
Gruß
Andreas

Anzeige
AW: Letzte leere Zelle
10.07.2008 13:29:00
Sebastian
Ich brauche das leider als Makro, da es nur ein Teil eines großen Makros ist.
geht nicht sowas in die Richtung:
If (A1:A100) Cell 0
then selcet.cell
(Fantasie Formel)

AW: Letzte leere Zelle
10.07.2008 13:40:10
AK
Naja, ein Makro besteht ja auch nur aus VBA-Code. Du kannst also das nutzen, was ich da geschrieben habe. Wie löst Du denn dein Makro aus? Über nen Button?
Dann kopiere einfach den folgenden Teil ans Ende Deines Makro (vor "end sub"):
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 1).Copy
Cells(1, 100).PasteSpecial Paste:=xlPasteValues
If Cells(1, 100) = "" Then
Cells(i, 1).Activate
Exit For
End If
Next
Cells(1, 100).Delete
So einfach, wie Du dachtest, geht es leider (meines Wissens) nicht. Da in den Zellen ja nachwievor was drin steht, nämlich die Formel :)

Anzeige
AW: Erste Zelle ohne Wert
10.07.2008 14:47:00
Gerd
Hallo Sebastian,
nachdem jetzt anscheinend feststeht, was Du suchst:

Sub a()
Dim rng As Range
On Error Resume Next
Set rng = Columns(1).Find("", LookIn:=xlValues, lookat:=xlWhole)
On Error GoTo 0
If Not rng Is Nothing Then  'wird in diesem speziellen Fall nicht nötig sein
MsgBox rng.Address
MsgBox rng.Row
rng.Select
End If 'wird in diesem speziellen Fall nicht nötig sein
End Sub


Ob die Zelle A1 optisch leer ist, müsstest zuerst noch separat abfragen.
Aber da schreibt man normalerweise die Überschrift rein.
Gruß Gerd

Anzeige

300 Forumthreads zu ähnlichen Themen

Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Anzeige
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 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:17:00
Thread-ID: 1017692
4 Beiträge
Anzeige
Zählen nichtleerer Zellen
Stefan

Hallo zusammen,
ich erbitte erneut Eure Hilfe. Es geht darum Zellen mit Inhalt einer Liste der Fuhrparkverwaltung zu zählen. In Spalte C:J habe ich jeweils die verschiedenen Fahrzeuge. In den Zeilen 7:372 trage ich dann ein, wer welches Fahrzeug belegt hat. Geht eine Fahrt über mehrere Tage...
04.11.2008 08:20:00
Thread-ID: 1021461
3 Beiträge
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
Letzte nicht leere Zelle eines Bereiches
Claudia

Hallo Forum,
noch eine blöde Frage von mir. Im Archiv habe ich immer nur die letzte nicht leere Zelle in einer Spalte gefunden.
Ich habe einen Bereich (J2 : J35), der allmählich mit Zahlen gefüllt wird. In Zelle J39 soll der Wert aus der letzten nicht leeren Zelle aus diesem Bereich wie...
24.11.2008 19:29:35
Thread-ID: 1027456
13 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
4
2
4
3
1
2
15
9
7
12
2
8
4
3
5
2
1
4
5
8
3
6
1
6
3