|
Hallo,
da ich noch unerfahren mit VBA bin und ich nur ein paar Schnipsel aus dem Internet kopiert habe und diese nicht funktioniert, wollte ich euch fragen ob ihr mir helfen könnt.
Es soll der Wert aus den Zellen B2 bis B100 aus der Tabelle "Lager_Zubehoer" mit den anderen Zellen B2 bis B100 aus der zweiten Tabelle -"Tabelle1" (Pfad: E:\Zubehoer\ ,Datei: Daten_Zubehoer.xlsx) hinzu addiert werden.
Private Sub CommandButton7_Click()
Dim sPfad As String ' der Ordner-Pfad der Excel-Mappen
Dim sDatei As String ' die zu beschreibende Datei
Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - das Ergebnis
Dim n As Integer
sPfad = "E:\Zubehoer\"
sDatei = "Daten_Zubehoer.xlsx"
Application.ScreenUpdating = False
If Dir(sPfad & sDatei) <> "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "bla... bla..."
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Lager_Zubehoer")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Tabelle1")
For n = 2 To 100
WkSh_Z.Cells("n,2").Value = WkSh_Z.Cells("n,2").Value - WkSh_Q.Cells.Cells("n,2").Value
Next n
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "bla..bla..", _
64, " Information für " & Application.UserName
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
End Sub
|