Office: Excel Tabelle mit Autofilter Zelle auslesen

ggrammer · 31. August 2019

Hallo Forum

ich habe eine Tabelle mit 5 Spalten mit Tabellenüberschrift.
Ich filtere die Tabelle nach einem Kriterium in Spalte A. Als Ergebnis werden mehrere Zeilen oder auch nur 1 Zeile angezeigt.

In Spalte E steht dabei ein Name, dieser soll beim Drucken in der Kopfzeile erscheinen.
Das Makro habe ich soweit dazu erstellt und würde soweit auch funktionieren.

Was mir fehlt ist der richtge Code für den Auswerten der 2.Zeile von Spalte E.
Es sollte auch funktionieren wenn die 2.Zeile auch tatsächlich Zeile 2 ist und nicht Zeile 6 oder sonst eine Zeile.
Mit der 2.Zeile meine ich die Zeile direkt unter der Überschrift
Ich möchte den Wert der Zelle mit Pagesetup.leftheader = in mein Makro einfügen.

Ich hoffe ich habe nicht zu umständlich beschrieben.
Ich bedanke mich für die Aufmerksamkeit
Gruß
Gerhard

:)

Mase · 2. September 2019

Hi,

schau dir offset() an.
Range("A1").Offset(1,0).value liefert bspw den Wert aus A2.

ggrammer · 2. September 2019

Hi

Da hast Du mich etwas missverstanden. Das muss auch funktionieren wenn Autofilter aktiv ist. Dann ist die gesuchte Zelle eben nicht A2 sondern vielleicht A5 oder A7.

Geht das nicht irgendwie über Autofilter.Range....?

Gruss
Gerhard

Mase · 2. September 2019

Nein habe ich nicht.
Du hast Dir offensichtlich die Offset()-Eigenschaft nicht genau angeschaut, stimmts?

Mit ein bisschen recherchieren findet man das Range-Objekt, stellt fest, dass diese hinter AutoFilter 'angedockt' werden kann, weiß nun noch, dass nur sichtbare Zellen ausgewertet werden sollen. (nochmal recherchieren)

Steht alles im Handbuch (welches zugegeben übersetzt bescheiden zu lesen ist)

Codebeispiel: (Diese an Deine Bedürfnisse anpassen)
Code:

Sub OffsetAusAutoFilterRange()
Dim wks As Worksheet
'
Set wks = Tabelle1 'ggf. anpassen
'
With Tabelle1
Debug.Print .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row 'sichtbare Zeile
Debug.Print .Cells(.AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 2).Value 'Wert
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hiweis:
Rechtklicks auf Tabelle1; Code anzeigen -> da reinkopieren.
Wenns keine Tabelle 1 gibt, dann anpassen.

Dann klappts auch mit m Nachbarn *wink.gif*

Luschi · 2. September 2019

Hallo Gerhard,

habe Marco's Code so abgewandelt: Code:

Sub OffsetAusAutoFilterRange()
Dim wks As Worksheet, nZ As Long, iSp As Integer, rg As Range

Set wks = Tabelle1 'ggf. anpassen
With wks
'1. Datenzeile-Zeile im Autofilter
nZ = .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row
Set rg = wks.Cells(nZ, "E")
Debug.Print rg.Address
Debug.Print rg.Value
End With
'weiterer Code

Set wks = Nothing: Set rg = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Mase · 2. September 2019

Hoppla,

Danke Luschi; war zwar noch früh aber doch irgendwie spät.

Korrigierte (also; gedachte) Version:
Code:

Sub OffsetAusAutoFilterRange()
Dim wks As Worksheet
'
Set wks = Tabelle1 'ggf. anpassen
'
With wks
Debug.Print .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row 'sichtbare Zeile
Debug.Print .Cells(.AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 2).Value 'Wert
End With
'
Set wks = nothing
'
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ggrammer · 3. September 2019

Hallo
Vielen Dank für die Hilfe,

klappt super, genauso wollte ich haben.

Gruß
Gerhard

Office: Excel Tabelle mit Autofilter Zelle auslesen

Excel Tabelle mit Autofilter Zelle auslesen

Excel Tabelle mit Autofilter Zelle auslesen

Excel Tabelle mit Autofilter Zelle auslesen

Excel Tabelle mit Autofilter Zelle auslesen - Similar Threads - Excel Tabelle Autofilter

Bedingte Formatierung funktioniert nicht

Array aus Excel Tabelle einlesen Word VBA

Dynamische Tabellen mit automatischer Aktualisierung

(Excel) Dynamische Tabelle, VBA, fehlende Formatierung?

Spalte gruppieren und aus den Inhalten jeweils eine Tabelle

Mehrere Tabellen in einer Pivot Grafik

1.Excel soll 100 Excel-Tabellen überprüfen