Excel VBA Werte ändern

Volker · 2020-01-18T06:49:49+00:00

Guten Morgen, Ich hab ein kleines Anliegen ;) und hoffe auf die Hilfe von euch Profis :) Zwei Spalten Spalte NI enthält standardmäßig 0 ist aber abhängig von einer anderen Spalte und ändert die Werte dementsprechend ab 1,2,3,4,5,6 Nun soll in Spalte B 5 ein Text erscheinen wenn in Spalte NI 4 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 ? Vielen Dank schon mal

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.

In Spalte B darf leider keine Formel stehen das ist mein Problem.
Das muss ich über einen code lösen welchen ich ja schon habe dank dir

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

Nur muss ich den Code jetzt so hin bekomme das :
'If Not Intersect(Target, Range("NI4:NI199")) Is Nothing And Target.Count = 1 Then'
checkt das in Spalte NI eine Formel steht und nicht eine Zahl.
Bzw Habe ich das bisher fast gelöst in dem ich
Range("NJ4:NJ199") = Range("NI4:NI199")
eingefügt habe jetzt steht zumindest in der Spalte NJ eine zahl und keine Formel. Habe deine Formel umgestellt :

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

leider klappt das nicht.
Application.Calculate hab ich auch schon eingefügt um das Worksheet zu aktualisieren nach dem ich den ok button geklickt habe.
Lösungsvorschläge ?

Forumthread: Excel VBA Werte ändern

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Excel VBA Werte ändern

Forumthread: Excel VBA Werte ändern

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread