Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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!
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
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
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

311 Forumthreads zu ähnlichen 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
"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
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 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

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