Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wert in letzte zeile schreiben

Forumthread: wert in letzte zeile schreiben

wert in letzte zeile schreiben
07.01.2004 13:07:09
Dennis
Hallo!

wie kann ich in VBA einen code erstellen, wobei erkannt die leztzte zeile erkannt wird, in welcher daten stehen und einen wert immer in die darunter schreibt?

Danke
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wert in letzte zeile schreiben
07.01.2004 13:10:43
mayk 

Sub letzteZeile ()
dim lZeile as integer
lZeile=activecell.specialcells(xlCelltypeLastCell).row+1
cells(LZeile,1) = "hier war Ende"
End Sub


Gruß,
mayk
AW: wert in letzte zeile schreiben
07.01.2004 13:14:26
dennis
wenn ich einen wert habe wie folgt:

if.....("A1")..... = 1 Then

und dann soll der wert der Zelle A1 in die letzte zeile geschrieben werden, natürlich auch in spalte a...........
Anzeige
AW: wert in letzte zeile schreiben
07.01.2004 13:17:56
mayk
verstehe jetzt den Sinn nicht, aber meinst du das?


Sub letzteZeile ()
dim lZeile as integer
if cells(1,1)="1" then
lZeile=activecell.specialcells(xlCelltypeLastCell).row+1
cells(LZeile,1) = cells(1,1)
end if
End Sub

AW: wert in letzte zeile schreiben
07.01.2004 13:14:13
Beni
Hallo Dennis,
i = ermittelt letzte Zeile in SpalteA + 1
Gruss Beni

i = Cells(65536, 1).End(xlUp).Row + 1
Cells(i, 1) = "Wert"
Anzeige
AW: wert in letzte zeile schreiben
07.01.2004 13:16:31
AndreasS
Hallo,


Sub ErsteFreieA()
Dim s As String
Dim i As Long
With ActiveSheet
i = 8
Do
i = i + 1
s = Cells(i, "A")
If Len(s) = 0 Then
Cells(i, "A").Activate
Exit Do
End If
Loop While i < 65535
End With
End Sub


gruß
AW: Erklärung: wert in letzte zeile schreiben
07.01.2004 13:18:10
AndreasS
Hallo,
i= 8 bedeutet, dass erst ab da begonnen wird...
mfg
Anzeige
AW: wert in letzte zeile schreiben
07.01.2004 13:19:42
dennis 

Sub ErsteFreieA()
Dim s As String ' string?
Dim i As Long ' long?
With ActiveSheet
i = 8 ' was ist 8?
Do
i = i + 1
s = Cells(i, "A")
If Len(s) = 0 Then ' was ist len
Cells(i, "A").Activate
Exit Do
End If
Loop While i < 65535 ' ?????
End With
End Sub

AW: wert in letzte zeile schreiben
07.01.2004 13:32:50
AndreasS
Hallo,
string bedeutet, dass nach einer Zeichenfolge gesucht wird(in der freien Zelle)...
8 bedeutet, dass die suche nach der ersten freien ab Zeile 8 beginnt...
Die Len-Funktion gibt nicht immer die tatsächlich zum Speichern benötigten Bytes zurück, wenn sie mit Zeichenfolgen variabler Länge in benutzerdefinierten Datentypen verwendet wird.Len(Zeichenfolge | Variablenname)

Die Syntax der Len-Funktion besteht aus folgenden Teilen:

Teil Beschreibung
Zeichenfolge Beliebiger gültiger Zeichenfolgenausdruck. Wenn Zeichenfolge den Wert Null enthält, wird Null zurückgegeben.

Variablenname Beliebiger gültiger Name für eine Variable. Wenn Variablenname den Wert Null enthält, wird Null zurückgegeben. Wenn Variablenname ein Wert vom Typ Variant ist, wird er von Len genauso behandelt wie ein Wert vom Typ String, und es wird immer die Anzahl der darin enthaltenen Zeichen zurückgegeben.

65535 da ein Excelsheet 65535 Zeilen enthält...

mfg
Anzeige
;

Forumthreads zu verwandten Themen

Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
Anzeige
Werte aus Spalte in Abhängigkeit in Zeile
Martin

Guten Tag zusammen ich hab folgendes Problem.
Ich hab folgende Struktur:
Kunde Kennzeichen
A AA-BB 1234
B BB-C 1234
B BB-G 1234
B BB-M 1111
C CC-D 1234
C CC-G 3344
D DD-M 5555
Ich möchte weiter Spalten in Abhän...
04.03.2016 18:17:37
Thread-ID: 1479874
12 Beiträge
Dropdownfeld Werte von Spalte in Zeile schreiben
Spalte

Hallo,
ich bin blutiger Anfänger was Excel betrifft und habe folgendes Problem. Ich möchte Werte die ich untereinander in eine Spalte schreibe automatisch auf einem zweiten Blatt in eine Reihe nebeneinander schreiben und das abhängig vom gewählten Wert in einem Dropdownfeld. Ich versuch es...
20.09.2018 20:27:40
Thread-ID: 1646823
3 Beiträge
Excel Daten aus Spalten in Zeilen schreiben
Harald

Guten Tag liebe Excel Gemeinde,
ich versuche schon seit Tagen meine Daten der Tabelle so umzustellen, dass die Daten in einer Liste zeilenweise aufgelistetet werden.
Meine Versuche mit Bereich verschieben, index usw. schlugen fehl, ich finde da einfach keinen Ansatz.
Also die Frage...
08.06.2019 11:50:29
Thread-ID: 1696851
11 Beiträge
Zahlen aus einer Spalte in eine Zeile Schreiben
Tobias
Hallo, habe folgendes Problem:Ich habe in Spalte A untereinander ca. 1500 Zahlen stehen und will diese Zahlen in einer Zelle, z.B. B1 hintereiander getrennt durch einen / stehen haben.Weiss jemand, wie es geht?Tobias
15.05.2003 18:40:49
Thread-ID: 257185
2 Beiträge
Werte aus Spalte in eine Zeile
Christian

Hallo zusammen
ich beschäftige mich gerade mit einem hartnäckigen Problem. In Tabelle1 sind in Spalte A Bildnummern und in Spalte B dazugehörende Keywords eingetragen. Da aber die Bildnummern mehrfach vorkommen, d.h. dass für jedes zugeordnete Keyword eine neue Zeile mit der selben Bildnumm...
04.02.2005 14:01:41
Thread-ID: 561479
11 Beiträge
Werte aus Spalte in Zeile sortieren
Henrik

Hallo zusammen,
habe wieder mal ein Problem.
In (Tabellenblatt "1") stehen in (Spalte "A") folgende Werte:
A2=-1,0 / A3=-1,5 / A4=-2,0 / A5=-0,5 / A6=1,5 / A7=0,5 / A8=0,0
Suche ein Makro, das mir diese Werte in (Tabellenblatt "2") in (Zeile "2")einfügt.
Folgende Bedingung...
15.02.2006 15:54:20
Thread-ID: 732342
2 Beiträge
Anzeige
Werte aus Spalten in Zeilen darstellen
Hans-Rudolf

Hallo Excel-Freunde
Ich möchte Werte aus mehreren Spalten (z.B. B10 bis B20, C10 bis C20, D10 bis D20) AUF EINEM NEUEN BLATT in Zeilen darstellen.
• Werte aus B10 bis B20 sollen also (z.B.) in der Zeile 2 (Zellen B2 bis K2)
• Werte aus C10 bis C20 sollen also in der Zeile 3 (Zellen...
19.12.2006 17:15:34
Thread-ID: 830868
3 Beiträge
Werte aus Spalte und in Zeile schreiben
Thomas
Hallo
Ich habe folgendes Problem:
Ich importiere mir daten, die sich ständig ändern, nicht nur die Werte, sondern auch die Bereiche (Abt.).
Wichtig ist, das kein Bereich (Abt.) übersehen wird.
Ich möchte, in einem weiteren Tabelle, das mir alle Bereiche (Abt.) mir in eine Zeile gesch...
08.03.2023 11:29:07
Thread-ID: 1923234
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Wert in die letzte Zeile schreiben in Excel mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne den Visual Basic for Applications (VBA) Editor:

    • Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere und füge den folgenden Code ein:

    Sub letzteZeile()
   Dim lZeile As Long
   lZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
   Cells(lZeile, 1) = "Hier ist der neue Wert"
End Sub

  4. Führe das Makro aus:

    • Schließe den VBA-Editor und kehre zu Excel zurück.
    • Drücke ALT + F8, wähle letzteZeile aus und klicke auf Ausführen.

Mit diesem VBA-Skript wird der Wert in die erste freie Zelle unterhalb der letzten gefüllten Zelle in Spalte A geschrieben.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004":

    • Mögliche Ursache: Der Code versucht, auf eine nicht existierende Zeile zuzugreifen. Stelle sicher, dass du in einem Blatt arbeitest, das nicht leer ist.

  • Lösung: Überprüfe, ob in der Spalte A tatsächlich Daten vorhanden sind.

Alternative Methoden

  1. Formelbasierte Lösung:

    • Du kannst auch die Funktion =VERGLEICH(MAX(A:A);A:A;0) verwenden, um die letzte Zeile mit Daten zu finden und dann mit INDIREKT den Wert in die nächste Zeile zu setzen.

  2. Excel-Tabellen:

    • Wenn du eine Excel-Tabelle verwendest, kannst du die Funktion Tabelle1[#Alle] nutzen, um automatisch die letzte Zeile zu bestimmen.

Praktische Beispiele

  • Beispiel 1: Füge einen Wert aus einer anderen Zelle hinzu.

    Sub WertHinzufuegen()
   Dim lZeile As Long
   If Cells(1, 1).Value = 1 Then
       lZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
       Cells(lZeile, 1).Value = Cells(1, 1).Value
   End If
End Sub

  • Beispiel 2: Suche nach der ersten freien Zelle ab Zeile 8.

    Sub ErsteFreieA()
   Dim s As String
   Dim i As Long
   With ActiveSheet
       i = 8
       Do
           i = i + 1
           s = Cells(i, "A").Value
           If Len(s) = 0 Then
               Cells(i, "A").Activate
               Exit Do
           End If
       Loop While i < 65535
   End With
End Sub

Tipps für Profis

  • Verwende Long anstelle von Integer: In VBA ist Long besser geeignet, um Zeilen zu speichern, da Integer nur bis 32.767 zählt und Excel mehr Zeilen hat.

  • Optimierung durch With-Anweisungen: Reduziere die Anzahl der Berechnungen, indem du With-Anweisungen verwendest, um mehrfaches Ansprechen des gleichen Objekts zu vermeiden.

FAQ: Häufige Fragen

1. Wie finde ich die letzte Zeile einer anderen Spalte? Um die letzte Zeile einer anderen Spalte zu finden, ändere den Index in Cells(Rows.Count, 2).End(xlUp).Row, wobei 2 für Spalte B steht.

2. Was mache ich, wenn ich mehrere Werte in einer Zeile speichern möchte? Du kannst mehrere Zellen in einer Zeile befüllen, indem du die Zelle entsprechend anpasst, z.B. Cells(lZeile, 2).Value = "Neuer Wert" für die zweite Spalte.

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