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 Auftragsformular

  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

  • Textbox-Eingabe mit ENTER-Taste abschließen und Aktion ausführen

    VBA-Makros können über verschiedene Ereignisse aufgerufen werden. Üblicherweise werden Makros über CommandButton, Menüpunkte in der Symbol- oder Multifunktionsleiste oder über Tastenkombinationen...

  • Sperren der Entfernen-Taste wenn Formel in Zelle

        In diesem Beispiel zeigen wir Ihnen, wie sich die Entfernen-Taste sperren lässt, wenn sich eine Formeln in der Zelle befindet. Dazu sind ein paar Zeilen VBA-Code notwendig. Erfassen Sie folgenden...

  • MessageBox nach bestimmter Zeit automatisch schließen

    Eine MessageBox wird normalerweise so lange am Bildschirm angezeigt, bis diese über eine Schaltfläche wie Ja, Nein oder OK beendet wird. Mit Hilfe des nachfolgenden Codes lässt sich eine MessageBox aber auch...

  • 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...

  • Ereignis beim selektieren einer Zelle ausführen

    Immer wenn in Excel eine Zelle aktiviert wird, wir das entsprechende Ereignis Worksheet_SelectionChange ausgeführt. In diesem Makro zeigen wir Ihnen, wie dies funktioniert. So soll bei Auswahl der...