AW: Spaltensummen und MsgBox ja nein
18.08.2022 07:39:52
Oberschlumpf
Hi Basti,
dieses Makro in ein allgemeines Modul schreiben (oder kopieren + einfügen)
Sub sbSumTabs()
Dim ldbSumTab1 As Double, ldbSumTab2 As Double
'wenn anderer Name als "Tabelle1", dann hier anpassen - wenn andere Zelle für Summe, dann hier anpassen
ldbSumTab1 = Sheets("Tabelle1").Range("D100").Value
'wenn anderer Name als "Tabelle2", dann hier anpassen - wenn andere Zelle für Summe, dann hier anpassen
ldbSumTab2 = Sheets("Tabelle2").Range("D100").Value
If MsgBox("Summe D aus Tabelle1: " & ldbSumTab1 & vbCrLf & _
"Summe D aus Tabelle2: " & ldbSumTab2 & vbCrLf & vbCrLf & _
"Soll das Makro beendet werden?", vbYesNo, "Frgae") = vbYes Then
Exit Sub
End If
'hier würde das Makro weiterlaufen...
End Sub
Hilfts?
Wenn nein, zeig bitte per Upload eine Bsp-Datei mit Bsp-Daten.
Ciao
Thorsten