Einen Wert in Access finden, anderen zurück geben.

[schauan]

Hallöchen,

wenn ich im Power-Query einen Filter setze bekomme ich nur die Daten ins Excel, die dem Filter entsprechen. Jetzt wäre die Frage, ob Du es hast.

[Didi]

Ich bekomme aus Access die Nummern und die Adressen zurück. Das ist wohl der besagte Filter.
Mit Excel kann ich aus diesen beiden Listen meine gesuchte Adresse mit Sverweis herausbekommen.

Mir geht es aber darum nur die gesuchte Adresse von Access zu bekommen.

[schauan]

Hallöchen,

wir wissenn immer noch nicht, wie- Hast Du nun Power Query oder was nimmst Du?

[Didi]

Excel:  Fenster "DATEN"
Aus anderen Quellen
Von MS Query
MS Access Datenbank
Dort die Datenbank angewählt.
Dann die Nummern und die Adressen ausgewählt.


Damit bekomme ich beide Listen nach Excel

[shift-del]

MS Query ist antik. Power Query gibt es seit Excel 2010.

[schauan]

Hallöchen,

in MS-Query hast Du unter der Tabellenübersicht einen Kriterienbereich, wo Du die Datenmenge einschränken kannst.
Zusätzlich hättest Du noch die Möglichkeit, Dir mit dem Button "SQL" die entsprechende SQL-Abfrage anzuschauen und bei Bedarf anzupassen.

[Didi]

Das schein alles etwas zu hoch für mich zu sein.

Ich habe daher den leichteren weg genommen.

Ich kopiere alles und suche in Excel mit Sverweis.

Didi

[schauan]

Hallöchen,

die "Höhe" kann ich nicht nachvollziehen. Da geht es um drei bis fünf  Klicks …

Erst oben Kriterien - hier mal über "Ansicht" | "Kriterien" eingeschalten,

   

Dann die Auswahl

   


Wenn Du oben über den Menüeintrag "Kriterien" gehst ist die Eingabe erst mal gesondert, bevor unten die Kriterienzeilen erscheinen, da gibt es einen weiteren Dialog:

   

[Didi]

Wie geschrieben habe ich es jetzt durch kopieren der gesamten Liste gemacht.
Auch das Eintragen von neuen Datensätzen habe ich hinbekommen.

Nun stehe ich aber wieder Da.

Bis jetzt habe ich immer ein "Vorlage" Blatt kopiert und den neuen Namen des Blattes eingegeben.
Nun will Excel aber immer eine Fragen beantwortet habe.
Diese Frage kommt für div. Formeln
   
Klicke ich immer auf OK passiert das was ich wollte. (ich hoffe mal das in den Formeln nichts verändert wurde)
Es nervt aber immer zu klicken.

Wie kann man das umgehen ?

Kopiert wird mit:

Sub NewTablesByName()

Dim i As Integer, dMonday As Date
For i = 2 To 3
  Sheets("KW1").Copy After:=Sheets(Sheets.Count)
  'Montag der KW ermitteln
  dMonday = DateSerial(2017, 1, 4) + i * 7 - 7 - (DateSerial(2018, 1, 2) Mod 7)
  ' wenn der Montag und der Sonntag (Montag + 6) den geleichen Monat haben, dann
  If Month(dMonday) = Month(dMonday + 6) Then
    Sheets(Sheets.Count).Name = "KW" & i
    ActiveSheet.Range("E2").Value = "KW" & i
  'Oder wenn es ein anderer Monat ist, zwei Blaetter erzeugen
  Else
    Sheets(Sheets.Count).Name = "KW" & i & ".1"
    ActiveSheet.Range("E2").Value = "KW" & i
    Sheets("KW1").Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "KW" & i & ".2"
    ActiveSheet.Range("E2").Value = "KW" & i
  'Ende  wenn der Montag und der Sonntag (Montag + 6) den geleichen Monat haben, dann
  End If
Next i
End Sub

Didi

[schauan]

Hallöchen,

eventuell kannst Du mit

Application.EnableEvents = False

diese Meldung unterdrücken. Solltest Du am Ende des Makros aber wieder auf True setzen.