In einer Tabelle mit neun Spalten verwalte ich meine CDs. Zwecks Übersicht kann ich über eine Userform z.B. verschiedene Filtermodi aufrufen.
Ein simpler Auto-Filter zeigt alle Daten außer "leere Zellen" in Spalte F, also so eine Art Übersicht in der nur die ersten Zeilen jeder CD angezeigt werden.
(in Zeile 1 bis Zeile 50 der Beispieldatei dargestellt)
https://www.herber.de/bbs/user/89310.xlsx
Jetzt bin ich mit meinen bescheidenen VBA-Kenntnissen und der Unterstützung von Franz (gestern abend im Forum) am basteln eines Makros, das mir trotz Filtermodus alle Detaildaten einer CD anzeigt.
(in Zeile 70 bis Zeile 119 dargestellt)
mein derzeitiger Makrocode sieht folgendermaßen aus:
Sub CD_daten_oeffnen()
Application.ScreenUpdating = False
Cells(ActiveCell.Row, 6).Activate
If ActiveCell.Value = "" Then
Selection.End(xlUp).Select
End If
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWorkbook.Names.Add Name:="LabelA", RefersToR1C1:="=CDA!" _
& ActiveCell.Address(ReferenceStyle:=xlR1C1)
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveWorkbook.Names.Add Name:="LabelE", RefersToR1C1:="=CDA!" _
& ActiveCell.Address(ReferenceStyle:=xlR1C1)
Range("LabelA:LabelE").Select
Selection.EntireRow.AutoFit
ActiveCell.Offset(-1, 3).Range("A1").Select
End Sub
Es funktioniert soweit ganz gut, die im Filtermodus ausgeblendeten Zeilen zu selektieren.
Aber mit der vorletzten Codezeile "Selection.EntireRow.AutoFit" werden die selektierten Zeilen nicht wie gewünscht, und zwar ohne an den Zeilenhöhen (16 pix) etwas zu verändern und außerdem nicht vollständig angezeigt.
Ich bräuchte nun einen VBA-Code, der das vielleicht kann, und außerdem die ausgewählte CD im Listenausschnitt ganz nach oben scrollt (Zeile 1 enthält die Spaltenüberschriften und ist fixiert).
Besten Dank für Unterstützung
Klaus