Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Erster Eintrag in der Spalte finden

Betrifft: Erster Eintrag in der Spalte finden von: Anja
Geschrieben am: 24.08.2004 09:22:01

Hallo,

ich wollte ein macro schreiben, der ersten Eintrag in der Spalte findet.

könnt ihr mir vielleicht helfen?

danke im Voraus...

Viele Grüße
Anja

  


Betrifft: AW: Erster Eintrag in der Spalte finden von: Mac4
Geschrieben am: 24.08.2004 09:34:11

Hi Anja,

eine Möglichkeit:

Sub test()
MsgBox Range("A:A").Find("*", searchdirection:=xlNext).Row 'Zeilennummer
MsgBox Range("A:A").Find("*", searchdirection:=xlNext) 'Inhalt der ersten gefüllten Zelle
End Sub


Marc (aus Köln)


  


Betrifft: after:=[a65536] von: Boris
Geschrieben am: 24.08.2004 09:36:34

Hi Marc,

...denn wenn A1 belegt ist, dann gibt´s nen falschen Wert.
MsgBox [a:a].Find("*", after:=[a65536])

Na ja - und wenn die Spalte ganz leer ist, dann... - wird sie aber wohl nicht sein ;-)

Grüße Boris


  


Betrifft: AW: after:=[a65536] von: Mac4
Geschrieben am: 24.08.2004 09:40:40

Hi Boris,

danke für den Hinweis!

Marc (aus Köln)


  


Betrifft: AW: Erster Eintrag in der Spalte finden von: Ingo
Geschrieben am: 24.08.2004 09:36:05

Hier der erste Eintrag in spalte A:
Sub erster_eintrag()
Dim rng As Range
Set rng = Cells(1, 1).End(xlDown)
MsgBox rng.Address
End Sub

mfG
Ingo Christiansen


  


Betrifft: AW: Erster Eintrag in der Spalte finden von: Anja
Geschrieben am: 24.08.2004 09:44:20

Hallo aller seits,

danke euch allen.... ;)

echt klasse, und so schnell...

viele liebe Grüße

Anja


 

Beiträge aus den Excel-Beispielen zum Thema "Erster Eintrag in der Spalte finden"