23.08.2022, 10:51
Hallo Zusammen,
ich habe folgendes Problem. Ich möchte gerne Daten von einer Excel-Mappe in eine geschlossene Excel-Mappe per Button verschieben.
Das funktioniert auch alles mehr als nur gut. Problem an der Sache ist, dass es in die nächste leere Zeile geschrieben werden soll und nicht einfach überschrieben.
Kann man das irgendwie realisieren?
hier mein Code:
Public Sub Schreiben()
Dim sPfad As String
Dim sDatei As String
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
sPfad = "leider zensieren"
sDatei = "leider zenisieren"
Application.ScreenUpdating = False
If Dir(sPfad & sDatei) <> "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
"und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
16, " Hinweis für " & Application.UserName
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Zeitnachweis")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Datenbank")
WkSh_Q.Cells.Range("A:G").Copy Destination:=WkSh_Z.Range("A:G")
'last = WkSh_Z.Cells(1, Columns.Count).End(xlUp).Column + 1
'Cells(last, 1).Value = "Neu"
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, " Information für " & Application.UserName
End Sub
ich habe folgendes Problem. Ich möchte gerne Daten von einer Excel-Mappe in eine geschlossene Excel-Mappe per Button verschieben.
Das funktioniert auch alles mehr als nur gut. Problem an der Sache ist, dass es in die nächste leere Zeile geschrieben werden soll und nicht einfach überschrieben.
Kann man das irgendwie realisieren?
hier mein Code:
Public Sub Schreiben()
Dim sPfad As String
Dim sDatei As String
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
sPfad = "leider zensieren"
sDatei = "leider zenisieren"
Application.ScreenUpdating = False
If Dir(sPfad & sDatei) <> "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
"und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
16, " Hinweis für " & Application.UserName
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Zeitnachweis")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Datenbank")
WkSh_Q.Cells.Range("A:G").Copy Destination:=WkSh_Z.Range("A:G")
'last = WkSh_Z.Cells(1, Columns.Count).End(xlUp).Column + 1
'Cells(last, 1).Value = "Neu"
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, " Information für " & Application.UserName
End Sub