Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2025 07:53:06
Excel 2 Spalten vergleichen
16.05.2025 20:26:36
Frage zur Darstellung von MIN und MAX aus Tabelle 2
16.05.2025 19:04:59
Summenprodukt / Zählenwenn, ausser bestimmter Zeichen
16.05.2025 18:39:38
Unterordner auflisten & Anzahl enthaltener Dateien anzeigen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte leere Zelle statt leere Zeile!

Forumthread: Letzte leere Zelle statt leere Zeile!

Letzte leere Zelle statt leere Zeile!
17.12.2003 12:17:17
Andre
Hi,

ich kann mit folgenden Zeilen die Letzte Zeile ermitteln! Das krieg ich noch hin, aber jetzt möchte ich die letzte Zelle einer bestimmten Zeile ermitteln und bearbeiten.

Das heißt, ich suche in der Tabelle "Gast" einen Namen in Spalte A, dann möchte ich in die letzte freie Zelle dieser Zeile meinen Wert aus "Kontrolle" schreiben lassen!
Der Name der in "Gast" gesucht werden soll, steht in "Kontrolle!i1"!

Kann mir da bitte jemand helfen?

Gruß Andre

Hier der Code:
Dim LetzteZeile As Integer

With Sheets("Gast")
LetzteZeile = .Cells(Cells.Rows.Count, 3).End(xlUp).Row
.Cells(LetzteZeile + 1, 1) = Sheets("Kontrolle").Range("i1").Value
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Daten und Verarbeitung
Tags
#datenverarbeitung #suche #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Letzte leere Zelle statt leere Zeile!
17.12.2003 12:32:33
Ulf
Dim LetzteZeile As Long
With Sheets("Gast")
LetzteZeile = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
.Cells(LetzteZeile + 1, 1) = Sheets("Kontrolle").Range("i1").Value

Ulf
Sorry, aber ...
17.12.2003 12:37:01
Andre
das kann nicht das sein was ich suche. Ich brauche sowas wie ´n Sverweis! Also ich habe einen Namen; diesen Namen suche ich in Tabelle "Gast"; dann möchte ich in dieser Zeile (ist nicht die letzte!) die erste leere Zelle (sorry, Fehler von mir gewesen! Also erste leere, nicht letzte freie!) ansprechen!
Anzeige
AW: Letzte leere Zelle statt leere Zeile!
17.12.2003 12:34:31
xXx
Hallo,

cells(ZeilenNr,255).end(xltoleft).column
ermittelt die letzte beschriebene Spalte in der Zeile.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!
Anzeige
Danke, aber ...
17.12.2003 12:41:20
Andre
ich weiß ja nicht welche Zeile jeweils gemeint ist! Der Name kann ja überall in Spalte A stehen!

Beispiel:
Name: Mustermann

Der Name "Mustermann" steht zufällig in der Zelle A50 und zufällig ist F50 die letzte beschriebene Zelle dieser Zeile.
Also muß jetzt "Sheets("Kontrolle").Range("i1").Value" in Zelle G50!

Gruß Andre
Anzeige
AW: Letzte leere Zelle statt leere Zeile!
17.12.2003 13:35:11
WernerB.
Hallo Andre,

entspricht das Deinen Wünschen?

Sub Andre()
Dim SuBe As Range, c As Range
Dim s As String
Dim laR As Long
Application.ScreenUpdating = False
s = Sheets("Kontrolle").Range("I1").Value
With Sheets("Gast")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range("A1:A" & laR). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
For Each c In .Range(.Cells(SuBe.Row, 1), .Cells(SuBe.Row, 256))
If c.Value = "" Then
c.Value = s
Exit For
End If
Next c
Else
MsgBox "Nichts gefunden !"
Exit Sub
End If
End With
Set SuBe = Nothing
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
AW: Letzte leere Zelle statt leere Zeile!
17.12.2003 13:42:36
WernerB.
Hallo Andre,

ersetze die Zeile "c.Value = s" durch

c.Value = Sheets("Kontrolle").Cells(1, c.Column).Value

Gruß WernerB.
Okay, aber ...
17.12.2003 13:50:30
Andre
Danke, das funktioniert ja schon echt klasse, aber leider wird nicht das richtige in die Zelle geschrieben!
Ich brauche den Wert aus "Kontrolle!F1" in diese Zelle!

Gruß Andre
Anzeige
AW: Okay, aber ...
17.12.2003 13:57:05
WernerB.
Hallo Andre,

wenn immer der Wert aus "Kontrolle!F1" in die gefundene Zelle geschrieben werden soll, dann ersetze die Zeile "c.Value = ....." durch

c.Value = Sheets("Kontrolle").Range("F1).Value

Gruß WernerB.
Fantastisch! Vielen Dank! o.T.
17.12.2003 14:00:37
Andre

Forumthreads zu verwandten Themen

Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Anzeige
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Formatierung Zelle auf "1 M" statt "1.000"
Chris

Hallo Leute,
Ich habe eine Frage bezüglich einer Zellformatierung.
Ich habe einet Tabelle in der Mengen an Großen Zahlen stehen.
Diese Tabelle würde ich gerne ohne die Werte durch 1000 zu teilen so Formatieren (benutzerdefiniert, das anstatt "1.234.567" nur noch "1.235 M" (gerundet)...
14.11.2008 16:50:09
Thread-ID: 1024652
5 Beiträge
Wenn Range("O10:O16") leer ist
Heinz

Hallo Leute
Habe mit meinem Makro in der Zeile
'If Sheets("Eingabe").Range("O10:O16").Value = "" Then
'MsgBox "Kein Gewicht eingegeben"
'Exit Sub
'End If
Ein Problem.
Ich möchte wenn in O10 bis O16 kein Eintrag gemacht wurde,das dann die MsgBox startet.
Wenn aber...
31.12.2008 16:19:40
Thread-ID: 1036170
3 Beiträge
0 entfernen, sprich leere Zelle
Bernhard

Hallo,
ich habe ein kleines Problem. Wenn ich z.B. zwei Zelleninhalte addiere und beide Zellen sind leer, spricht nicht 0 sonder leer, bekomme ich als Ergebnis ebenfalls eine 0. Ich möchte aber, dass diese Zellen ebenfall nicht darstellt. Ich habe bisher dann die "" Stringausgabe gewählt. =...
24.01.2009 12:22:54
Thread-ID: 1043326
6 Beiträge
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
5 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 Beiträge
Anzahl Beträge ungleich Null mit wenn Abfrage
Urs

Hallo zusammen
Ich habe eine Tabelle mit rund 12000 Zeilen.
In der Spalte A habe ich ca. 30 verschiedene Werte (z.B. 12,13,15,16,52,55,71,72 usw). In der Spalte U habe ich verschiede Werte (Einstandspreise). Ich habe jetzt die Addition der Spalte U mit Summewenn gelöst.
Formel:
06.03.2009 13:00:35
Thread-ID: 1057269
4 Beiträge
mit Space gelöschte Zelle als leer erkennen
bully

Hallo Excelfreunde,
ich suche mit "Cells(20, 5).End(xlUp).Offset(1, 0).Select" in einem Zellbereich die erste leere Zelle. Wurde eine Zelle aber mit einem Leerschlag gelöscht, wird diese nicht mehr als leer erkannt (wieso ist mir klar).
Gibt es eine möglichkeit, die erste Zelle ohne ers...
12.03.2009 22:13:27
Thread-ID: 1059701
16 Beiträge
Anzeige
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige