Microsoft Excel

Herbers Excel/VBA-Archiv

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

VBA: Erstes sichtbares Feld auswählen

Betrifft: VBA: Erstes sichtbares Feld auswählen von: Andrea
Geschrieben am: 27.08.2004 13:38:08

Hallo,

folgendes hoffentlich einfaches Problem:

Ich setze eine Autofilter und würde dann gerne per VBA die erste sichtbare
Zeile auswählen. Wie mache ich denn das?

Gruß und schönes WE
Andrea

  


Betrifft: AW: VBA: Erstes sichtbares Feld auswählen von: Basti
Geschrieben am: 27.08.2004 14:07:09

Sub til()
Dim C As Range
Dim a As Integer
a = 0
For Each C In rows("1:50")
    If C.Hidden = False Then
       If a = 0 Then
       a = C.Offset(0, 0).Column 
       End If
    End If
Next C
End Sub


hab das gestern oder vorgestern von einem hier fuer spalten bekommen.
weiss nich ob das so geht, aber der ansatz her stimmt

Original ( zählt aber nur bis Spalte vor der ersten sichtbaren):
Sub til()
Dim C As Range
Dim a As Integer
a = 0
For Each C In Columns("AB:IV")
    If C.Hidden = False Then
       If a = 0 Then
       a = C.Offset(0, -1).Column 
       End If
    End If
Next C
MsgBox (Cells(3, a))
End Sub



  


Betrifft: AW: VBA: Erstes sichtbares Feld auswählen von: P@ulchen
Geschrieben am: 27.08.2004 14:14:30

Hi Andrea,

zB.:

Range("A2:" & Range("A2").End(xlDown).Address).SpecialCells(xlCellTypeVisible).Select



Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


 

Beiträge aus den Excel-Beispielen zum Thema "VBA: Erstes sichtbares Feld auswählen"