Viele Grüsse und Danke
Ich hoffe ich habe das richtig verstanden:
Auf die gleiche Art wie in ein normales Modul, nur mit dem Unterschied dass du im VB-Editor einen Doppelklick auf die jeweilige Tabelle machen musst.
Gruss Rainer
Ich hoffe ich habe das richtig verstanden:
Auf die gleiche Art wie in ein normales Modul, nur mit dem Unterschied dass du im VB-Editor einen Doppelklick auf die jeweilige Tabelle machen musst.
Gruss Rainer
vielleicht meinte er auch eine Klasse????
Gruß Hajo
Die Aufgabe ist nich ganz klar was für ein Code. Aus dem Code ergibt sich vielleicht schon wo er hinkommt in die Tabelle oder in eine Klasse.
Gruß Hajo
ich habe es einmal geschrieben und wiederhole mich nicht. Auf persönliche Mails wird nicht geantwortet. Unaufgeforderte Mails werden sofort vom Rechner gelöscht.
Die Aufgabe war für mich nicht intressant als sie unter einen anderem Betreff stand. Warum wurde ein neuer Beitrag angefangen. Da gab es doch schon Lösungsansätze.
Die Mail.
"Hallo Hajo
Mein Problem besteht darin, dass ich eine Aufstellung eines Umsatzes machen möchte. Darin soll in einer Zelle die Vorgabe stehen, in einer andern der aktuelle Stand und nochmals dahinter die Differenz. Bei einer Plusdifferenz soll die Schrift grün mit einem Pluszeichen davor sein, bei einer Minusdifferenz soll die Schrift rot sein und Minuszeichen davor stehen. Bei Gleichstand soll eine schwarze 0 dastehen. Das Ganze möchte ich bei mehreren Zellen machen.
Aufgrund dieser Fragestellung habe ich unten stehende Antwort bekommen. Mit meinen Kenntnissen kann ich damit nicht allzuviel anfangen, darum habe ich die Frage betreffend Code und klassenmodul gestellt.
Hallo,
folgenden Code in das Klassenmodul der Tabelle:
Option Explizit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(Cells(1, 1), Cells(1, 2))) Is Nothing Then
With Cells(1, 3)
.NumberFormat = "@"
.HorizontalAlignment = xlRight
End With
Select Case Cells(1, 1) - Cells(1, 2)
Case Is > 0
With Cells(1, 3)
.Value = "+" & CStr(Cells(1, 1) - Cells(1, 2))
.Font.ColorIndex = 4
End With
Case Is = 0
With Cells(1, 3)
.Value = 0
.Font.ColorIndex = 0
End With
Case Is < 0
With Cells(1, 3)
.Value = CStr(Cells(1, 1) - Cells(1, 2))
.Font.ColorIndex = 3
End With
End Select
End If
End Sub
Zelle A1 = Vorgabe Umsatz, Zelle B1 = momentaner Stand des Umsatzes, Zelle C1 = Ausgabezelle."
Gruß Hajo