Hallo zusammen,
ich komme an meine VBA Wissensgrenzen. Ich finde zu dem Thema kein passendes Forum oder Video, sehr Speziell.
Ich möchte einzelne Daten aus einer Excel Mappe ( Protokoll) in eine andere Excel Mappe ( Test1) überführen mit einen CB ausführen lassen .
Ziel:
( Excel Mappe: Protokoll; Tabelle 1 / Tabelle 5/ Tabelle 9; Zelle A1, B5, K15-16 in eine anderen Excel Mappe einfügen > Test1; Tabelle 1; Zelle B20,B25 )
Das ganze soll mit einen Command Button ausgeführt werden.
Mein derzeitiger Code:
Sub ?bertragung_Protokoll()
MsgBox "Sollen die eingegeben Daten ?bertragen werden? Weiter mit OK "
' Kunden Makro
Dim Nr2 As String ' Speicherort
Range("d26").Select ' Schleifenvariable ( zelle a1)
'Fehlermarke einf?gen
On Error GoTo FehlerMarke
' TB Aktivieren
ThisWorkbook.Worksheets("Startseite").Activate
' Zieldatei einf?gen
Nr2 = "U:\Test Bilder\Nr2.xlsx"
'ZielDatei ?ffnen
Open Nr2 For Output As #1
'Info ZielDatei einf?gen
'For Mappe1a = 1 To 1
' Werte aus der Tabelle in das xlsm einf?gen
Print #1, Cells("d, 24").Value & "" & Cells("t, 2").Value
'Next Zeile
'Zieldatei Schlie?en
Close #1
FehlerMarke:
MsgBox Err.Description
Dim strText As String
strText = " Daten erfolgreich ?bertragen!!"
MsgBox strText
Exit Sub
End Sub
VG Anfänger2.0
|