Office: nur gefilterte Zeilen auslesen

olbi2003 · 18. Mai 2019

Hallo Zusammen,

ich möchte gerne Werte aus Excel in eine Access-DB laden.
Da ich nicht alle Werte benötige, wollte ich nur die gefilterten
Daten verwenden. Dazu verwende ich den begefügten Code, der
ohne dem Filter funktioniert.
Auf meiner Recherche bin ich auf die Funktion "SpecialCells" gestoßen,
kann diese aber nicht in den Code einfügen. Vielleicht gibt es noch einen
anderen Lösungsansatz dazu?

Bsp. Ausgangstabelle in Excel

Datum Schicht Linie Zeit Zeit_Soll
21.05.19 | 1 |1 | 7,5 | 7,5
21.05.19 | 2 |1 |
21.05.19 | 3 |1 | 7,5 | 7,5

Der zweite Datensatz soll nicht übertragen werden.

Schöne Grüße

olbi2003

Code:

Sub Linienlaufzeiten_einlesen()

Dim cn As ADODB.Connection

On Error GoTo fehler

Set cn = New ADODB.Connection

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Properties("Jet OLEDB:System database") = "V:xxx.mdw"
cn.Open "Data Source=V:xxx.mdb; User ID = userxx;Password=xxx;"

ActiveSheet.Range("$A$3:$E$6").AutoFilter Field:=4, Criteria1:=""

Set RecS = New ADODB.Recordset
RecS.Open "Linienlaufzeit", cn, adOpenKeyset, _
adLockOptimistic, adCmdTable

Zeile = 4

Do While Range("A" & Zeile).SpecialCells(xlCellTypeVisible)
With RecS
.AddNew ' Einen neuen Datensatz erstellen
.Fields("Datum") = Range("A" & Zeile).Value
.Fields("Schicht") = Range("B" & Zeile).Value
.Fields("Linie") = Range("C" & Zeile).Value
.Fields("Zeit") = Range("D" & Zeile).Value
.Fields("Zeit_Soll") = Range("E" & Zeile).Value
.Update
End With
Zeile = Zeile + 1 ' Nächste Zeile
Loop
RecS.Close
Set RecS = Nothing

cn.Close
Set cn = Nothing

Exit Sub

fehler:

MsgBox Err.Number & " " & Err.Description

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Der Steuerfuzzi · 19. Mai 2019

Hallo,

im Grunde würde ich den gesamten Bereich, in dem die Daten stehen, mit SpceialCells auf die sichtbaren beschränken und dann (statt der Do..Loop-Schleife) mit einer For ... Each- Schleife durchlaufen. z. B. so:
Code:

Dim rngZ as range
For Each rngZ In Range("A4:E6").SpecialCells(xlCellTypeVisible).Rows
With RecS
.AddNew ' Einen neuen Datensatz erstellen
.Fields("Datum") = rngZ.cells(1).Value
.Fields("Schicht") = rngZ.cells(2).Value
.Fields("Linie") = rngZ.cells(3).Value
.Fields("Zeit") = rngZ.cells(4).Value
.Fields("Zeit_Soll") = rngZ.cells(5).Value
.Update
End With
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den Bereich musst Du natürlich auf Deine Daten entsprechend anpassen.
Wenn es viele Daten sind, dann könnte es vorteilhaft sein, die Daten zuerst in eine Variablen zwischenzuspeichern.

olbi2003 · 20. Mai 2019

Hallo Michael,

vielen Dank für die schnelle Hilfe, funktioniert perfekt.

Schöne Grüße

Olbi2003

Office: nur gefilterte Zeilen auslesen

nur gefilterte Zeilen auslesen

nur gefilterte Zeilen auslesen

nur gefilterte Zeilen auslesen - Similar Threads - gefilterte Zeilen auslesen

SUMMEWENN bei aufgeblendeten/gefilterten Zeilen

Summenprodukt in gefilterten Zeilen

gefilterte Zeilen kopieren

nur gefilterte Zeilen löschen

gefilterte(sichtbare) Zeilen mit Inhalt zählen

In gefilterten Zeilen Zelle in erster Zeile anspringen

Gefilterte Zeilen werden beim Auswerten berücksichtigt