VBA Code Zeile

[snb]

Da

https://www.clever-excel-forum.de/Thread...#pid300785

Al Fine.

[RPP63]

Ich zitiere Alexandra:
Datei?

[johammer]

Ja ok

[RPP63]

Ich frage mich gerade, wieso Du ein Zahlenformat mittels VBA vergeben willst.
Das mache ich doch direkt im Blatt (in G5).
Und um eine Warnung auszugeben, dass die Summe > 12500 ist, nimmt man doch eher eine bedingte Formatierung und keine MsgBox.

Da sonst keinerlei Code in der Mappe ist, sondern nur tote Links auf Dein Onedrive, bin ich hier raus.

Gruß Ralf

[johammer]

Hei RPP ja alles gut,

tote Links zu ONEDRIVE versteh ich jetzt nich wirklich.
Habe die Originaldatei kopiert, abgespeckt und in ein neues Blatt kopiert.

ich nix wissen was du meinst.

Lg Jo

[cysu11]

Offensichtlich ist Alexandra Hellseherin!

Gruß Ralf

Sag ich doch. :) 

LG, Alexandra

[BoskoBiati]

Hi,

dann sieh Dir doch die datei an, bevor Du sie losschickst:

I8:
=WENNFEHLER(SUMME('https://d.docs.live.net/BC46D210DA970B57/[Zählerstand-Protokoll-Ablesung_LibreOff Kopie.xlsm]Tbl_Daten'!$E$3/365*C8);"")

K8:
=WENN(B8="";"";WENN(MONAT($B8)=MONAT(A8);"";'https://d.docs.live.net/BC46D210DA970B57/[Zählerstand-Protokoll-Ablesung_LibreOff Kopie.xlsm]Tbl_Daten'!$I$3))

[cysu11]

Hi Jo,

probiere mal so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("G8:G19")) Is Nothing Then
        With ActiveSheet.Range("G5")
            .NumberFormat = "#,##0.00"" KWh"""
        End With
        ' Überprüfen, ob der Wert den Grenzwert überschreitet
        If Range("G5").Value > 12500 Then
            MsgBox "Warnung: Der Wert in Zelle G5 überschreitet 12.500,00 kWh!", vbExclamation, "Grenzwert überschritten"
        End If
    End If
End Sub

bin hier davon ausgegangen, dass die Summe in G5 aus der gleichen Spalte die Monate summiert?

LG, Alexandra