Mehere Zellen überprüfen

Bild

Betrifft: Mehere Zellen überprüfen
von: Der Knappe
Geschrieben am: 09.11.2015 10:27:53

Hallo Zusammen,
ich habe ein Makro geschrieben was letztendlich zwei Zellen(verschieden Spalten) auf deren Inhalt überprüft. Nach der Überprüfung soll daraufhin eine Berechnung in einer anderen Zelle erfolgen.
Leider bekomme ich kein Ergebnis hin. Kann mir hier jemand weiter helfen?
Vielen Dank

Bild

Betrifft: Glaskugel defekt. owT
von: Rudi Maintaire
Geschrieben am: 09.11.2015 10:34:47


Bild

Betrifft: AW: Mehere Zellen überprüfen
von: Daniel
Geschrieben am: 09.11.2015 10:35:45
Hallo
Es gibt wahrscheinlich viele, die dir hier helfen können, wenn du deine Problemstellung etwas konkreter beschreibst und vielleicht auch mal deinen verwendeten Code hier einstellst, oder die Datei dazu hochlädst.
Gruß Daniel

Bild

Betrifft: AW: Mehere Zellen überprüfen
von: Der Knappe
Geschrieben am: 09.11.2015 10:37:09


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i As Integer
Dim j As Integer
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("H4")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
If RaZelle.Value = "x" Then i = 5
End If
Next RaZelle
Set RaBereich = Range("I4")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
If RaZelle.Value = "y" Then j = 5 And RaZelle.Offset(0, 1) = (i + y)
End If
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub


Bild

Betrifft: AW: Mehere Zellen überprüfen
von: Der Knappe
Geschrieben am: 09.11.2015 10:38:30
Sorry für den vergessenen Code :)

Bild

Betrifft: AW: Mehere Zellen überprüfen
von: Rudi Maintaire
Geschrieben am: 09.11.2015 10:44:53
Hallo,
was soll das?
If RaZelle.Value = "y" Then j = 5 And RaZelle.Offset(0, 1) = (i + y)
Du meinst wahrscheinlich

If RaZelle.Value = "y" Then 
  j = 5
  RaZelle.Offset(0, 1) = (i + y)
end if
(wobei y immer =0 ist. Es sei denn, y ist eine Public oder modulweite Variable)
Gruß
Rudi
VBA wohl doch nicht gut.

Bild

Betrifft: AW: Mehere Zellen überprüfen
von: Der Knappe
Geschrieben am: 09.11.2015 10:55:22
Ok das "And" war der Fehler. Der Hinweis mit dem Public Variable war mir bewusst.
Vielen Dank trotzdem.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Mehere Zellen überprüfen"