Thema Datum  Von Nutzer Rating
Antwort
Rot Zellenwerte summieren
24.11.2021 15:23:28 Alfons
NotSolved
24.11.2021 15:35:35 Mase
NotSolved
24.11.2021 15:43:33 Alfons
NotSolved
24.11.2021 16:02:00 Mase
NotSolved
24.11.2021 16:21:43 Alfons
NotSolved
24.11.2021 16:18:21 Gast15675
Solved
24.11.2021 16:58:10 Alfons
Solved

Ansicht des Beitrags:
Von:
Alfons
Datum:
24.11.2021 15:23:28
Views:
43
Rating: Antwort:
  Ja
Thema:
Zellenwerte summieren

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
 


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
Rot Zellenwerte summieren
24.11.2021 15:23:28 Alfons
NotSolved
24.11.2021 15:35:35 Mase
NotSolved
24.11.2021 15:43:33 Alfons
NotSolved
24.11.2021 16:02:00 Mase
NotSolved
24.11.2021 16:21:43 Alfons
NotSolved
24.11.2021 16:18:21 Gast15675
Solved
24.11.2021 16:58:10 Alfons
Solved