Datenübertragung per Mako

Forumthread: Datenübertragung per Mako

02.04.2020 15:34:18

Hallo Liebes Forum,
ich habe eine kleine Frage und wäre euch sehr dankbar, wenn ihr mir helfen könntet. Ich möchte ein Makro bauen, welches die Daten innerhalb der selben Datei von anderen Reiter in einem Reiter sammeln. Ich habe versucht ein Makro abzuleiten, jedoch funktioniert der Übertrag nicht. Ich würde es sehr schätzen, wenn Ihr mir meinen Fehler aufzeigen könntet.

Sub Schaltfläche1_Datenübertrag()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("BLG - MBSA").Range("N4:N17").Copy ThisWorkbook.Worksheets("Ü _
bersichtHC40").Range("D6:D19")
wb.Close False
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("BLG - MBUSI").Range("N4:N17").Copy ThisWorkbook.Worksheets("Ü _
bersichtHC40").Range("E6:E19")
wb.Close False
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("BLG - BBAC").Range("N4:N17").Copy ThisWorkbook.Worksheets("Ü _
bersichtHC40").Range("F6:F19")
wb.Close False
End Sub

Vielen Dank im Voraus!
Viele Grüße
DE

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datenübertragung per Mako

02.04.2020 16:30:37

ChrisL
AW: Datenübertragung per Mako

02.04.2020 16:40:26

Werner
AW: Datenübertragung per Mako

02.04.2020 20:03:57

DE
Gerne u. Danke für die Rückmeldung. o.w.T.

02.04.2020 20:44:30

Werner

AW: Datenübertragung per Mako

02.04.2020 16:30:37

ChrisL

Hi
Sieht eigentlich OK aus. Ein paar Zeilen gelöscht.

Sub Schaltfläche1_Datenübertrag()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("BLG - MBSA").Range("N4:N17").Copy _
ThisWorkbook.Worksheets("ÜbersichtHC40").Range("D6:D19")
ThisWorkbook.Worksheets("BLG - MBUSI").Range("N4:N17").Copy _
ThisWorkbook.Worksheets("ÜbersichtHC40").Range("E6:E19")
ThisWorkbook.Worksheets("BLG - BBAC").Range("N4:N17").Copy _
ThisWorkbook.Worksheets("ÜbersichtHC40").Range("F6:F19")
End Sub

cu
Chris

AW: Datenübertragung per Mako

02.04.2020 16:40:26

Werner

Hallo,
so:

Public Sub kopieren()
With ThisWorkbook
.Worksheets("BLG - MBSA").Range("N4:N17").Copy .Worksheets("ÜbersichtHC40").Range("D6"). _
Resize(, 3)
End With
End Sub

Gruß Werner

AW: Datenübertragung per Mako

02.04.2020 20:03:57

Hallo Werner,
Vielen Dank!!
VG
DE

Gerne u. Danke für die Rückmeldung. o.w.T.

02.04.2020 20:44:30

Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Datenübertragung per Mako

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread