Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Spaltenüberschriften suchen und Werte darunter kopieren |
07.03.2018 15:11:24 |
Thomas |
|
|
|
08.03.2018 01:30:05 |
Werner |
|
|
|
08.03.2018 04:30:04 |
Werner |
|
|
|
08.03.2018 13:31:00 |
Thomas |
|
|
|
08.03.2018 16:16:56 |
Werner |
|
|
|
09.03.2018 10:18:40 |
Werner |
|
|
|
11.03.2018 18:54:55 |
Thomas |
|
|
|
11.03.2018 21:18:14 |
Werner |
|
|
|
11.03.2018 21:20:06 |
Thomas |
|
|
|
12.03.2018 15:23:50 |
Thomas |
|
|
Von:
Thomas |
Datum:
07.03.2018 15:11:24 |
Views:
1450 |
Rating:
|
Antwort:
|
Thema:
VBA Spaltenüberschriften suchen und Werte darunter kopieren |
Hallo zusammen,
ich möchte ein Makro schreiben, dass in einem Sheet in einer anderen Excel nach spezifischen Spaltenüberschriften sucht und die Werte darunter kopiert. Es sind insgesamt 40 Spalten die kopiert werden müssen, jede Überschrift soll einzeln gesucht werden und dann die Spalte kopiert.
Folgendes habe ich schon gemacht:
Sub extract()
Dim A As Integer
A = MsgBox("Overwrite existing data with new data?", vbYesNo + vbQuestion, "Import")
If A = vbYes Then
Dim x As Workbook
Dim y As Workbook
Application.ScreenUpdating = False
Set x = Workbooks.Open("C:\Users\Dateipfad\Datei.xlsx")
Set y = ThisWorkbook
y.Sheets("data").Rows("2:10000").Delete
Dim Col As Long
Col = Application.Match("Suchwert", x.Sheets("source"), Rows(1), 0)
x.Sheets("source").Cells(1, Col).Offset(1).Resize(10000).Copy_
y.Sheets("data").Range("A2").PasteSpecial xlPasteValues
'die oberen 3 Zeilen würde ich dann 39 mal wiederholen mit dem jeweils neuen Suchwert
x.Close SaveChanges:=False
y.Sheets("data").Cells(1, 1).Select
y.Sheets("summary").Select
Application.ScreenUpdating = True
Else
Exit Sub
End If
End Sub
Leider kriege ich bei der Application.Match immer eine Fehlermitteilung "Invalid number of arguments". Gibt es noch eine andere Methode, das zu lösen?
Vielen Dank und viele Grüße
Thomas
|
- 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
|
VBA Spaltenüberschriften suchen und Werte darunter kopieren |
07.03.2018 15:11:24 |
Thomas |
|
|
|
08.03.2018 01:30:05 |
Werner |
|
|
|
08.03.2018 04:30:04 |
Werner |
|
|
|
08.03.2018 13:31:00 |
Thomas |
|
|
|
08.03.2018 16:16:56 |
Werner |
|
|
|
09.03.2018 10:18:40 |
Werner |
|
|
|
11.03.2018 18:54:55 |
Thomas |
|
|
|
11.03.2018 21:18:14 |
Werner |
|
|
|
11.03.2018 21:20:06 |
Thomas |
|
|
|
12.03.2018 15:23:50 |
Thomas |
|
|