Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Bestimmte Zellen in mehren Zeilen aus einer geschlossenen Exceldatei in andere kopieren |
10.09.2021 09:37:58 |
Ralf |
|
|
|
22.09.2021 21:14:50 |
PawelPopolski |
|
|
|
24.09.2021 11:18:26 |
volti |
|
|
|
26.09.2021 11:00:58 |
PawelPopolski |
|
|
|
26.09.2021 11:12:09 |
Gast65377 |
|
|
Von:
Ralf |
Datum:
10.09.2021 09:37:58 |
Views:
269 |
Rating:
|
Antwort:
|
Thema:
Bestimmte Zellen in mehren Zeilen aus einer geschlossenen Exceldatei in andere kopieren |
Hallo Zusammen,
da ich nicht so der VBA Profi bin, brächte ich eure Hilfe. Ich möchte über eine Schaltfläche Daten aus einer geschlossenen Exceldatei (Tabelle FM) in das aktive Arbeitsblatt (Tabelle KM) übernehmen (eine anderen Exceldatei) Die Daten aus den Zellen sollen Zeilenweise übernommen werden wenn in zwei Spalten ein bestimmter Wert vorhanden ist. (hier Spalte C "ja" und Spalte G "2021") Ich bräuchte nur die Werte aus Spalte H, J, G und C in dem aktiven Arbeitsblatt. Bis jetzt habe ich das mit dem nachfolgenden Code versucht, dieser übernimmt nur Bereiche. Über eure Hilf wäre ich froh.
Tabelle FM geschlossen
A |
B |
C |
C |
E |
F |
G |
H |
I |
J |
1 |
10 |
11 |
ja |
12 |
13 |
2021 |
14 |
15 |
16 |
2 |
17 |
18 |
nein |
19 |
20 |
2022 |
21 |
22 |
23 |
3 |
24 |
25 |
ja |
26 |
27 |
2024 |
28 |
29 |
30 |
4 |
31 |
32 |
ja |
33 |
34 |
2021 |
35 |
36 |
37 |
5 |
38 |
39 |
nein |
40 |
41 |
2021 |
42 |
43 |
44 |
Tabelle KM aktiv
A |
B |
C |
D |
E |
F |
G |
H |
I |
J |
1 |
11 |
2021 |
13 |
16 |
|
|
|
|
|
2 |
32 |
2021 |
34 |
37 |
|
|
|
|
|
3 |
|
|
|
|
|
|
|
|
|
4 |
|
|
|
|
|
|
|
|
|
5 |
|
|
|
|
|
|
|
|
|
Sub CmdDatHolen_Click()
'ActiveWorkbook.RefreshAll
Dim sPfad As String
Dim wbQuelle As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Datenpfad der Quelldatei
sPfad = "C:\SACHGBT\20210816_Budgetliste_FM.xlsm"
'prüfen, ob die Datei existiert
If Dir(sPfad) <> "" Then
'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(sPfad)
'Daten kopieren und einfügen
wbQuelle.Worksheets("Daten").Range("Q2:Q10").Copy ThisWorkbook.Worksheets("ASP_2021").Range("J47:J55")
'Arbeitsmappe schließen
wbQuelle.Close savechanges:=False
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Bestimmte Zellen in mehren Zeilen aus einer geschlossenen Exceldatei in andere kopieren |
10.09.2021 09:37:58 |
Ralf |
|
|
|
22.09.2021 21:14:50 |
PawelPopolski |
|
|
|
24.09.2021 11:18:26 |
volti |
|
|
|
26.09.2021 11:00:58 |
PawelPopolski |
|
|
|
26.09.2021 11:12:09 |
Gast65377 |
|
|