Zellwerte addieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2000
  

Re: Zellwerte addieren

von: Hajo
Geschrieben am: 14.04.2002 - 10:14:58


Hallo Dieter

ActiveCell= ActiveCell + Sheets("Tabelle1").[a1]

Gruß Hajo

  

Re: Zellwerte addieren

von: Dieter
Geschrieben am: 14.04.2002 - 10:36:47


Besten Dank für den schnellen Tip.
Vielleicht kannst du mir ja nochmal helfen, hier mein Problem:
In Tabelle2 Spalte A stehen 6stellige Zahlen (etwa 500).
In Tabelle1 gebe ich in Zelle C5 eine von diesen Zahlen ein und möchte nun
per Makro zur Zelle in Tabelle2 Spalte A die dieser Zahl entspricht.

Gruß Dieter

  

Re: Zellwerte addieren

von: Hajo
Geschrieben am: 14.04.2002 - 10:56:26


Hallo Dieter

in VBA in die Tabelle1 nicht Modul, nicht DieseArbeitsmappe


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$5" And Target.Value <> "" Then
        Dim As String
        Dim Zeile As Long
        Dim Bereich As Range
        Dim Letzte As Long
        Worksheets("Tabelle2").Select
        If Worksheets("Tabelle2").[a65536] = "" Then
            Letzte = Worksheets("Tabelle2").[a65536].End(xlUp).Row
        Else
            Letzte = 65536
        End If
        Set Bereich = Sheets("Tabelle2").Range("A4:A" & Letzte) _
            .Find(Target.Value, lookat:=xlWhole)
        If Bereich Is Nothing Then
            MsgBox "Name '" & Target.Value & "' konnte nicht gefunden werden!"
        Else
            Bereich.Select
        End If
    End If
End Sub

Gruß Hajo

  

Re: Zellwerte addieren

von: Dieter
Geschrieben am: 14.04.2002 - 11:27:17


Vielen Dank für die Mühe und schönen Sonntag noch.
Ich werde den Rest des Tages damit verbringen "mein Werk"
zu beenden.

Gruß Dieter

nach unten

Betrifft: Zellwerte addieren
von: Dieter
Geschrieben am: 14.04.2002 - 10:11:52

Wie kann ich per Makro zu einer Zelle in Tabelle2 den Wert
einer Zelle in Tabelle1 addieren wenn die Zelle in Tabelle2
aktiv ist. Beispiel:
ActiveCell.Value + Sheets("Tabelle1").[A1]??
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellwerte addieren"