Forums Neueste Beiträge
 

[VBA] in die nächste leere Zeile schreiben

01/11/2011 - 07:50 von Christof Kluß | Report spam
Hallo,

ich möchte den Inhalt eines Dictionary in die Spalten A und B
untereinander eintragen. Dazu wollte ich einfach zur nàchsten freien
Zelle in Spalte A springen und dann die Eintràge in die Zeile schreiben.

For Each x In dict
With ThisWorkbook.Worksheets("Tabelle1")
With .Cells(1, 1).End(xlDown)
.Offset(1, 0).Value = x
.Offset(1, 1).Value = dict(x)
End With
End With
Next

Leider springt xlDown wohl immer in die gleiche Zelle. Könnte ihr mir
einen Tipp geben, wie ich es richtig und vielleicht sogar eleganter hin
bekomme?

Gruß
Christof
 

Lesen sie die antworten

#1 Jörg Eisenträger
01/11/2011 - 13:32 | Warnen spam
On Tue, 01 Nov 2011 07:50:11 +0100, Christof Kluß
wrote:

zur nàchsten freien
Zelle in Spalte A springen und dann die Eintràge in die Zeile schreiben.

With .Cells(1, 1).End(xlDown)
Leider springt xlDown wohl immer in die gleiche Zelle.



Hallo Christof,

ich verlasse mich meist nicht auf die Excel-internen "End"-Befehle,
sondern suche mir z. B. die letzte benutzte Zeile so:

Dim LastRow as Long
LastRow = _
.Cells.Find("*", After:=.Cells(1), _
LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row

Dein Eintrag kommt dann in die Zelle Cells(LastRow + 1, 1).
Vielleicht hilft es Dir ja.


Gruß
Jörg
LPs auf CD brennen - so geht's: http://www.joergei.de/
E-Mail-Adresse existiert, wird aber nicht gelesen.

Ähnliche fragen