Excelmakro bei negativen Wert

  • #1
J

joergi78

Bekanntes Mitglied
Themenersteller
Dabei seit
17.08.2005
Beiträge
249
Reaktionspunkte
0
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 !!!!!!!!!!!
 
  • #11
bekomm ich das auch so hin,
daß der von mir geschriebene Text unter der Zellenbeschreibung steht?
 
  • #12
joergi78 schrieb:
bekomm ich das auch so hin,
daß der von mir geschriebene Text unter der Zellenbeschreibung steht?
Zum Vergrößern anklicken....

sry versteh ich jetzt nicht ganz was du unter geschriebene Text verstehst.

Meinst du dass die Info-Box unterhalb der Zelle erscheinen soll oder wie?

Etwas was du machen könntest ist, dass das makro alle Zellen markiert die einen negativen Wert haben.
 
  • #13
nee, ich meine daß die Message Box in zwei Zeilen auftaucht. etwa so:
Achtung in Zelle C54
Steht eine negative Zahl!
 
  • #14
joergi78 schrieb:
nee, ich meine daß die Message Box in zwei Zeilen auftaucht. etwa so:
Achtung in Zelle C54
Steht eine negative Zahl!
Zum Vergrößern anklicken....

jo das geht =)

würde dann so aussehen:

Code: 
  MsgBox ACHTUNG! in Zelle  & zelle.Address(rowabsolute:=0, columnabsolute:=0) & Chr(10) & _
  Steht eine negative Zahl!, vbInformation + vbOKOnly

das wichtigste ist das chr(10), ich habs nun einfach auf 2 zeilen geschrieben weil ich finde es ist übersichtlicher =)
 
  • #15
ja alles klafr DANKE noch einmal
 
  • #16
joergi78 schrieb:
ja alles klafr DANKE noch einmal
Zum Vergrößern anklicken....

kain problem
 
Thema:

Excelmakro bei negativen Wert

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums

Themen
113.839
Beiträge
707.962
Mitglieder
51.492
Neuestes Mitglied
Janus36
Oben