AutoFilter-Funktion

Computer: Software & Programmierung Office Software
1

Hallo,
ich habe ein kleine Problemchen.
und zwar habe ich eine recht große Liste angelegt, die anhand der markierten Zeile eine Druckvorschau in einem Extra Fenster macht.
in dieser Druckvorschau befindet sich ein Button, der mir die nächste Druckvorschau, also von der nachfolgenden Zeile mit allen dazugehörigen Daten, ausgibt.
Nun die Frage dazu. wenn nun nämlich in der Liste der Autofilter eingeschaltet ist, dann werden ja nur bestimmte Zeilen ausgegeben bzw. sichtbar.
Wie mache ich das meine Druckvorschau klar, dass sie nun nicht mehr nur das rein logisch anhand der Zeilennummer folgende Element nehmen soll, sondern das durch das AutoFilter festgelegte nächste Element?
MfG Sebastian

2

Hi Sebastian,
kannst du mal den Code des Buttons posten?
Gruß
Reinhard

3

Private Sub CommandButton2_Click()
zeilennummer = Worksheets(„DruckvorschauRisse“).Cells(2, 10).Value
zeilennummer = zeilennummer - 1
If zeilennummer > 7 Then
If Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 1).Value „“ Then
Worksheets(„DruckvorschauRisse“).Activate
picPath = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 18).Value
picPath2 = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 19).Value
Worksheets(„DruckvorschauRisse“).Cells(3, 2) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 1).Value
Worksheets(„DruckvorschauRisse“).Cells(3, 4) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 2).Value
Worksheets(„DruckvorschauRisse“).Cells(3, 6) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 3).Value
Worksheets(„DruckvorschauRisse“).Cells(3, 8) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 4).Value
Worksheets(„DruckvorschauRisse“).Cells(39, 3) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 5).Value
Worksheets(„DruckvorschauRisse“).Cells(39, 5) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 6).Value
Worksheets(„DruckvorschauRisse“).Cells(13, 2) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 7).Value
Worksheets(„DruckvorschauRisse“).Cells(14, 2) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 8).Value
Worksheets(„DruckvorschauRisse“).Cells(15, 2) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 9).Value
Worksheets(„DruckvorschauRisse“).Cells(6, 2) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 10).Value
Worksheets(„DruckvorschauRisse“).Cells(6, 4) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 11).Value
Worksheets(„DruckvorschauRisse“).Cells(6, 6) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 12).Value
Worksheets(„DruckvorschauRisse“).Cells(6, 8) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 13).Value
Worksheets(„DruckvorschauRisse“).Cells(11, 4) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 14).Value
Worksheets(„DruckvorschauRisse“).Cells(11, 6) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 15).Value
Worksheets(„DruckvorschauRisse“).Cells(9, 2) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 16).Value
Worksheets(„DruckvorschauRisse“).Cells(9, 6) = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 17).Value
Worksheets(„DruckvorschauRisse“).Cells(2, 10) = zeilennummer
If picPath = „“ Then
Dim Mldg, Stil, Titel
Mldg = „Bild 1 nicht verfügbar“
Stil = vbokbutton
Titel = „Fehler“
Antwort = MsgBox(Mldg, Stil, Titel)
Else
bildstr = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 18).Value
bildstr = Mid(bildstr, 8)
Worksheets(„DruckvorschauRisse“).Cells(39, 7) = bildstr
Path = „O:\TK-600\ZZ_Lisa\intern\90_Neue_Technologien\11_Systemtest_2006“ & picPath
Worksheets(„DruckvorschauRisse“).Image1.Picture = LoadPicture(Path)
End If

If picPath2 = „“ Then
Dim Mldg2, Stil2, Titel2
Mldg2 = „Bild 2 nicht verfügbar“
Stil2 = vbokbutton
Titel2 = „Fehler“
Antwort2 = MsgBox(Mldg2, Stil2, Titel2)
Else
bildstr2 = Worksheets(„RisseEinschnürungen“).Cells(zeilennummer, 19).Value
bildstr2 = Mid(bildstr, 8)
Worksheets(„DruckvorschauRisse“).Cells(39, 8) = bildstr2
Path2 = „O:\TK-600\ZZ_Lisa\intern\90_Neue_Technologien\11_Systemtest_2006“ & picPath2
Worksheets(„DruckvorschauRisse“).Image2.Picture = LoadPicture(Path2)
End If

Else
Dim Mldg3, Stil3, Titel3
Mldg3 = „Keine weiteren Bauteile“
Stil3 = vbokbutton
Titel3 = „Fehler“
Antwort3 = MsgBox(Mldg3, Stil3, Titel3)
End If
End If
End Sub

Die zeilennummer wird zur zeit einfach in ein leeres Fenster geschrieben um es dann wieder auslesen zu können…
ich hoff du findest dich da durch…
dnake…

4

Hallo Sebastian,

Die zeilennummer wird zur zeit einfach in ein leeres Fenster
geschrieben um es dann wieder auslesen zu können…
ich hoff du findest dich da durch…
dnake…

Durch folgende Anpassung am Anfang des Codes werden per Filter ausgeblendete Zeilen überprüft und übersprungen. d.h. es werden immer die Werte der nächsten sichtbaren Zeile angezeigt.

Private Sub CommandButton2\_Click()
NextZeile:
 zeilennummer = Worksheets("DruckvorschauRisse").Cells(2, 10).Value
 zeilennummer = zeilennummer - 1
 If zeilennummer \> 7 Then
 If Worksheets("RisseEinschnürungen").Cells(zeilennummer, 1).Value "" Then
 'Prüfung ob Zeile ausgeblendet ist
 If Worksheets("RisseEinschnürungen").Cells(zeilennummer, 1).EntireRow.Hidden = True Then
 Worksheets("DruckvorschauRisse").Cells(2, 10) = zeilennummer
 GoTo NextZeile 'Rücksprung zum Beginn der Sub
 End If
 Worksheets("DruckvorschauRisse").Activate

Gruß
Franz

5

Danke Franz,
funktioniert wunderbar.
hab diesen Entire Befehl nicht gefunden.
MfG Sebastian