Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Anzeige
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"
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
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

Anzeige
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

9 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige