fehler , komm nicht weiter

Forumthread: fehler , komm nicht weiter
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: fehler , komm nicht weiter

15.01.2009 15:28:37

stefan

hallo,
folgender befehl liefert mir z.b. B100 zurück
letzteZelle = Sheets(orgSheetName).Range("B" & Sheets(orgSheetName).Range("B65536").End(xlUp).Row).Address(0, 0)
wie muss ich die variable letzteZelle deklarieren?
danke euch.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

als String ? (owT)

15.01.2009 15:57:00

RS
AW: fehler , komm nicht weiter

15.01.2009 18:19:00

Erich

als String ? (owT)

15.01.2009 15:57:00

AW: fehler , komm nicht weiter

15.01.2009 18:19:00

Erich

Hi Stefan,
das ginge aber auch kürzer. Und vielleicht brauchst du nicht die Adresse der letzten Zelle,
sondern diese Zelle selbst:


Dim strLetzteZelle As String
Dim rngLetzteZelle As Range
'lang:
strLetzteZelle = Sheets(orgSheetName).Range("B" & _
Sheets(orgSheetName).Range("B65536").End(xlUp).Row).Address(0, 0)
'kürzer:
strLetzteZelle = Sheets(orgSheetName).Range("B65536").End(xlUp).Address(0, 0)
'Zelle selbst:
Set rngLetzteZelle = Sheets(orgSheetName).Range("B65536").End(xlUp)
MsgBox rngLetzteZelle.Address(0, 0)

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort