Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
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
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste leere Zeile markieren und Wert zuweisen

Erste leere Zeile markieren und Wert zuweisen
08.10.2018 14:01:24
Tw97
Hallo zusammen,
ich habe schon mehrere Beiträge im Netz gefunden die das Thema tangieren, aber keine Lösung habe ich richtig verstanden.
Folgendes Problem:
Ich lese mit einer GetValue Funktion Werte aus einer einzelnen feststehenden Zelle aus geschlossenen Arbeitsmappen aus. Diese Werte möchte ich nun nebeneinander in eine Zeile schreiben. Nun habe ich das Problem, dass ich per VBA immer die erste leere Zelle in einer Zeile finden möchte und dieser direkt den Wert, den die GetValue Funktion ausliest, zuweisen möchte. Ich habe schon viel mit Column Count etc. rumgespielt aber die Systematik dahinter nie verstanden.
Kann mir jemand einen Code liefern bzw. allgemein behilflich sein?
Danke im Voraus!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste leere Zeile markieren und Wert zuweisen
08.10.2018 14:15:58
Daniel
Hi
kommt darauf an.
Wenn die erste leere Zelle immer die am rechten Rand der Tabelle ist, dann so: 
Cells(1, Columns.count).end(xltoleft).Offset(0, 1).Value = GetValue
wenn die zu füllende Leerzelle auch innerhalb des bereits gefüllten Bereichs auftauchen kann: 
if Cells(1, 1).Value = "" then
Cells(1, 1).Value = GetValue
elseIf Cells(1, 2).Value = "" then
Cells(1, 2).Value = GetValue
Else
Cells(1, 1).end(xltoright).Offset(0, 1).Value = GetValue
End if
Gruß Daniel
AW: Erste leere Zeile markieren und Wert zuweisen
08.10.2018 14:26:23
Tw97
Ihr seid ja schneller als die Feuerwehr, Vielen Dank!
Eine Frage hätte ich noch: Was stellt man mit Offset und den Zahlen dahinter in den Klammern ein?
Anzeige
AW: Erste leere Zeile markieren und Wert zuweisen
08.10.2018 14:36:41
Daniel
naja du gibst eine Zelle vor und sagst mit Offset dann, dass du eigentlich die Zelle haben willst, die sich so viele Zeilen über-/unterhalb und so viele Spalten links bzw rechts der Ausgangszelle befindet.
dabei stehen positive Zahlen für "nach unten" (1. Parameter) bzw "nach rechts" (2. Parameter) und negative Zahlen dann für "nach oben" und "nach links"
Gruß Daniel
AW: Erste leere Zeile markieren und Wert zuweisen
08.10.2018 14:40:37
Tw97
Danke jetzt habe ich es verstanden :)
AW: Erste leere Zeile markieren und Wert zuweisen
08.10.2018 14:16:08
ChrisL
Hi
Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) = GetValue(...)
cu
Chris
AW: Erste leere Zeile markieren und Wert zuweisen
08.10.2018 14:22:29
Werner
Hallo 
dim loLetzte as long
with worksheets("Dein Blatt")
loLetzte = .cells(.rows.count, 1).end(xlup).row
.cells(loLetzte + 1, 1) = deinWert
end with
Ermittelt die letzet belegte Zeile in Spalte A und schreibt deinen Wert in die Zelle darum darunter.
Gruß Werner
Anzeige

302 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Anzeige
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
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 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
4
4
2
2
2
15
9
7
4
2
7
3
3
1
7
3
2
8
3
19
2
7
5
3
1