Thema Datum  Von Nutzer Rating
Antwort
Rot VBA buchen in einer Tabelle
04.01.2015 20:28:06 Christian
NotSolved
Blau UPS
05.01.2015 09:05:43 Gast62279
NotSolved
Rot UPS
05.01.2015 11:09:31 Christian
NotSolved
09.01.2015 09:19:09 Gast31828
Solved

Ansicht des Beitrags:
Von:
Christian
Datum:
04.01.2015 20:28:06
Views:
693
Rating: Antwort:
  Ja
Thema:
VBA buchen in einer Tabelle

Hallo zusammen.

 

Ich habe eine Tabelle in der ich Mengen zu- ausbuchen möchte.

Von einem Bekanten habe ich schon Hilfe bekommen, er hat mir eine Programmierung gegeben, diese ist mir aber zu aufwendig wenn ich die tabelle erweitere.

Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address <> "$C$3" Then GoTo Zeile1
     Range("D3").Value = Range("D3").Value + Range("C3").Value
     
     

Zeile1:
     If Target.Address <> "$C$4" Then GoTo Zeile2
     Range("D4").Value = Range("D4").Value + Range("C4").Value
     
Zeile2:
     If Target.Address <> "$C$5" Then GoTo Zeile3
     Range("D5").Value = Range("D5").Value + Range("C5").Value
     
Zeile3:
     If Target.Address <> "$C$6" Then GoTo Zeile4
     Range("D6").Value = Range("D6").Value + Range("C6").Value

......

Zeile40:
     If Target.Address <> "$C$43" Then GoTo Zeile41
     Range("D43").Value = Range("D43").Value + Range("C43").Value
     
Zeile41:
     If Target.Address <> "$C$44" Then Exit Sub
     Range("D44").Value = Range("D44").Value + Range("C44").Value
        
End Sub

 

Hat von euch einer eine Idee wie dies einfacher geht.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA buchen in einer Tabelle
04.01.2015 20:28:06 Christian
NotSolved
Blau UPS
05.01.2015 09:05:43 Gast62279
NotSolved
Rot UPS
05.01.2015 11:09:31 Christian
NotSolved
09.01.2015 09:19:09 Gast31828
Solved