Excelmakro bei negativen Wert

Dieses Thema Excelmakro bei negativen Wert im Forum "Microsoft Office Suite" wurde erstellt von joergi78, 13. Okt. 2006.

Thema: Excelmakro bei negativen Wert Hallo an alle, ich möchte eine Excelmakro schreiben, daß sich ein Infofenster öffnet, wenn in einer bestimmten...

  1. Hallo an alle,

    ich möchte eine Excelmakro schreiben, daß sich ein Infofenster öffnet, wenn in einer bestimmten Zeile ein negativer Betrag errechnet wird.
    Dieses Makro soll in zwei bestimmten Zeilen funktionieren. Geht das???

    mfg
    joergi78
     
  2. Hallo

    Jop das geht ^^ füg folgendes mal in deine Exeldatei ein und zwar bei dem Tabellenblatt wo das ding gültig sein wird.

    Code:
    Private Sub Worksheet_Calculate()
    
    'Bereich bestimmen
    c_bereich = C1:C10
    
    Dim zelle As Range, vorzeichen As String
    
    For Each zelle In Range(c_bereich)
    
     vorzeichen = Left(zelle.Value, 1)
     
     If vorzeichen = - Then
     
      MsgBox ACHTUNG! in  & zelle.Address(rowabsolute:=0, columnabsolute:=0) &  gibts eine Negative Zahl, vbInformation + vbOKOnly
      
     End If
    
    Next
    
    End Sub
    
    Bereich musst du einfach noch anpassen ^^

    mfg billy
     
  3. Hallöchen,

    habe es gerade versucht, aber leider ohne erfolg. Habe folgendes geschriebn:

    Code:
    Private Sub Worksheet_Calculate()
    
    'Bereich bestimmen
    c_bereich = C54:GJ54
    
    Dim zelle As Range, vorzeichen As String
    
    For Each zelle In Range(c_bereich)
    
      vorzeichen = Left(zelle.Value, 1)
      
      If vorzeichen = - Then
      
        MsgBox ACHTUNG! in  & zelle.Address(rowabsolute:=0, columnabsolute:=0) &  gibts eine Negative Zahl, vbInformation + vbOKOnly
        
      End If
    
    Next
    
    End Sub
    
    aber leider ohne Erfolg  :(
    weiß einer woran das liegt
     
  4. kommt eine fehlermeldung oder einfach nichts?

    hast du Makros aktiviert?

    kannst du mir mal sagen was für werte du hast?
     
  5. es kommt keine Fehlermeldung.
    Es passiert einfach nix!
    Makrosicherheit steht auf niederig.
    Das sind einfache Werte wie z.B:
    72-30= 42
    72-73=-1
    usw.
     
  6. ich nehm an du hast es dort rein kopiert wo ich es dir gesagt habe ...

    oder?
     
  7. ich habe esin der Datei unter dem Menüpunkt
    -Extras
    -Makro
    -Visual Basic Editor
    und daan da unter
    VBAProjekt
    Tabelle1

    eingefügt.
    Das meinst du och oder???
     
  8. jop das mein ich

    und nun einfach noch zur Sicherheit, nich böse gemeint, die Daten hast du auch in der Tabelle 1 oder?
     
  9. habe den Fehler gefunden !!!
    Hatte das Script in Modul1 drinne stehen.
    Jetzt klappt es!
    DANKE !!!!!!!!!!!
     
  10. kain problem ^^
     
Die Seite wird geladen...

Excelmakro bei negativen Wert - Ähnliche Themen

Forum Datum
excelmakro Microsoft Office Suite 1. Aug. 2003
Excel 2010: Rechnen mit negativen Uhrzeiten Microsoft Office Suite 16. Sep. 2012
freier Festplattenspeicher wird mit negativen Wert angezeigt Windows 95-2000 15. Mai 2004