Excel VBA Werte ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit 'Nun soll in Spalte B5 ein Text erscheinen wenn in Spalte NI4 eine 2 erscheint. 'Könnte man mit IF lösen aber ich brauch das für die ganze Spalte 'von B5 : B200 wären Zuviels IF geht das nicht irgendwie mit Offset oder so ? Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("NI4:NI199")) Is Nothing And Target.Count = 1 Then Select Case Target Case Is = 1 Target.Offset(1, -371) = "Text1" Case Is = 2 Target.Offset(1, -371) = "Text2" Case Is = 3 Target.Offset(1, -371) = "Text3" 'und hier bei Bedarf weitere Case-Anweisungen End Select End If End Sub

ja doof formuliert :(
dein code funktioniert super wenn in der Spalte NI eine zahl (1,2,3,4,5,6,0 ) steht, dann gibt dein code in B Text1, Text2, Text3 ein. dafür nochmal vielen dank.
Allerdings wenn nun in Spalte NI eine Formel steht deren Ergebnis 1,2,3,4,5,6,0 ergibt funktioniert der code nicht mehr.
gibt es die Möglichkeit für den Code aus einer formel zu erkennen ob da nun 1,2,3,4,5,6,0 steht ?
hab mal gegooglt

Private Sub Worksheet_Calculate()
Static A3_Alt As Double
If Range("A3").Value  A3_Alt Then
A3_Alt = Range("a3").Value
Call Zellenänderung
End If
End Sub

ähnliches Problem wie bei mir.
allerdings bin ich mit VBA nicht so begabt Calculate in mein Problem einzubinden
Meine Überlegung:

Private Sub Worksheet_Calculate()
Static A3_Alt As Double               'hier glaube ich müsste meine Spalte NI stehen'
If Range("A3").Value  A3_Alt Then   ' hier müsste ich einen Bereich statt einzelne zelle prü _
fen'
A3_Alt = Range("a3").Value        ' hier auch wieder ganze spalte NI'
If Not Intersect(Target, Range("NI4:NI199")) Is Nothing And Target.Count = 1 Then 'hier  _
dein code'
Select Case Target
Case Is = 1
Target.Offset(1, -371) = "Text1"
Case Is = 2
Target.Offset(1, -371) = "Text2"
Case Is = 3
Target.Offset(1, -371) = "Text3"
'und hier bei Bedarf weitere Case-Anweisungen
End Select
End If
End If
End Sub

bin bestimmt komplett falsch aber so in die Richtung dachte ich sollte es funktionieren nur wie gesagt bin ich in VBA nicht fit genug das selbst umzusetzten.

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("NI4:NI199")) Is Nothing And Target.Count = 1 Then Select Case Target Case Is = 1 Target.Offset(1, -371) = "Text1" Case Is = 2 Target.Offset(1, -371) = "Text2" Case Is = 3 Target.Offset(1, -371) = "Text3" 'und hier bei Bedarf weitere Case-Anweisungen End Select End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("NJ4:NJ199")) Is Nothing And Target.Count = 1 Then Select Case Target Case Is = 1 Target.Offset(1, -372) = "Text1" Case Is = 2 Target.Offset(1, -372) = "Text2" Case Is = 3 Target.Offset(1, -372) = "Text3" 'und hier bei Bedarf weitere Case-Anweisungen End Select End If End Sub

Dim Target As Range
Dim RnG As Range
For Each RnG In Range("NI4:NI199")
If RnG.HasFormula Then
If Not Intersect(Target, Range("NI5:NI199")) Is Nothing And Target.Count = 1 Then
Select Case Target
Case Is = 1
Target.Offset(1, -371) = "Text1"
Case Is = 2
Target.Offset(1, -371) = "Text2"
Case Is = 3
Target.Offset(1, -371) = "Text3"
'und hier bei Bedarf weitere Case-Anweisungen
End Select
End If
Next RnG
so etwa in dieser Richtung ?
immer schwer zu erklären :/ In allen zellen der spalte NI steht eine Formel das Ergebnis dieser formel beträgt entweder 1,2,3,4,5,6 oder 0.
Ich möchte also nicht nur schauen ob eine formel in NI ist sondern mich interessiert das Ergebnis dieser formel.
Aber wenn ich doch über range("NI").Value = range("NJ").value den Inhalte von NJ anpasse müsste dein code doch funktionieren da nur zahlen stehen keine Formeln aber das tut er nicht :( warum ? wo ist mein fehler ?

Option Explicit Private Sub Worksheet_Calculate() Dim RnG As Range For Each RnG In Range("NI4:NI199") Select Case RnG Case Is = 1 RnG.Offset(1, -371) = "Text1" Case Is = 2 RnG.Offset(1, -371) = "Text2" Case Is = 3 RnG.Offset(1, -371) = "Text3" 'und hier bei Bedarf weitere Case-Anweisungen End Select Next RnG End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("NJ5:NJ199")) Is Nothing And Target.Count = 1 Then Select Case Target Case Is = 1 Target.Offset(1, -372) = "Text1" Case Is = 2 Target.Offset(1, -372) = "Text2" Case Is = 3 Target.Offset(1, -372) = "Text3" 'und hier bei Bedarf weitere Case-Anweisungen End Select End If End Sub

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread