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.
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.
Hallöchen,
wir wissenn immer noch nicht, wie- Hast Du nun Power Query oder was nimmst Du?
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
MS Query ist antik. Power Query gibt es seit Excel 2010.
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.
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
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,
[
attachment=20051]
Dann die Auswahl
[
attachment=20050]
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:
[
attachment=20052]
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
[
attachment=20056]
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:
Zitat: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
Hallöchen,
eventuell kannst Du mit
Application.EnableEvents = False
diese Meldung unterdrücken. Solltest Du am Ende des Makros aber wieder auf True setzen.