Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

Zelle A1 um den Wert erhöhen, der in Zelle A1 eingegeben wird

104009



Mit folgendem Event-Makro wird die Zelle A1 um den in Zelle A1 eingegebenen Werte erhöht. Wenn in A1 eine 5 eingegeben wird, steht in A1 eine 5. Wird in A1 anschließend die Zahl 3 eingegeben, dann steht in A1 eine 8. Auf diese Weise lassen sich Werte in einer einzigen Zelle aufsummieren.

Option Explicit
Dim zahl As Double

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Application.EnableEvents = False
        Target.Value = Target.Value + zahl
        Application.EnableEvents = True
    End If
End Sub

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then zahl = Target.Value
End Sub

 


Bitte fügen Sie dieses Makro in das Code-Modul des Tabellenblatts ein, in dem er verwendet werden soll, da es sich um ein Worksheet-Event handelt.

   

Relevante Artikel

  • Aktive Zelle mit Farbe hinterlegen

    104007 Folgendes Programm färbt die aktive Zelle farblich ein. Wird die Zelle wieder verlassen wird der Ursprungszustand in der verlassenen Zelle wieder hergestellt und die nun aktive Zelle...

  • Tastenbefehl F2 und ENTER senden

    Mit Hilfe der Funktionstaste [F2] wird eine Zelle in den Bearbeitungsmodus gebracht. Die Taste [Enter] schließt den Bearbeitungsmodus wieder ab.Dies kann nach einem Textimport notwendig werden,...

  • Ausführen eines Makros nach einer definierten Wartezeit

    Möchten Sie ein Makro nach einer bestimmten Intervall-Zeit immer wieder ausführen? Möchten Sie bspw. alle 30 Minuten erinnert werden, Ihre Rückenübungen zu machen. Oder soll stündlich ein...

  • Zähler beim Start einer Arbeitsmappe um den Wert 1 erhöhen

    Solle bei jedem Start einer Arbeitsmappe ein Zähler, beispielsweise eine Rechnungsnummer in Zelle B2, um den Wert 1 erhöht werden, dann sehen Sie sich den folgenden Code näher an. Private Sub...

  • Beim verändern einer Zelle eine Aktion ausführen

    Excel erkennt automatisch, wenn der Anwender eine Zelle verändert. So können alle oder bestimmte Zellen beliebig per VBA überwacht werden.   Das folgende Makro wird beispielsweise ausgeführt, wenn in...