Formel per VBA einfügen, wenn Wert in Zelle = "IST

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim Z As Range Set Z = ActiveCell If Not Intersect(Target, Z) Is Nothing Then If Cells(16, Z.Column) > 0 Then Cells(16, Z.Column).FormulaR1C1 = _ "=IF(R[-6]C=""IST"",VLOOKUP(R16C4,Tabelle2!C3:C7,R[-13]C[1],0),"""")" Cells(16, Z.Column).Select Else MsgBox "In Zeile 16 fehlt der manuell erfasste Wert" End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Z As Range 'der Variablen Z ein Bereichsobjekt mit dem benötigten Bereich zuweisen Set Z = Range("E10:P10") ' Prüfen ob die gerade geänderte Zelle sich im Bereich Z befindet If Not Intersect(Target, Z) Is Nothing Then ' wenn geänderte Zelle im Bereich E10:P10 dann prüfen ob in Zeile 16 ein Wert steht If Cells(16, Target.Column) > 0 Then ' in Zeile 16 die Formel eintragen Cells(16, Target.Column).FormulaR1C1 = "=IF(R[-6]C=""IST"",VLOOKUP(R16C4,Tabelle2!C3: _ C15,R[-13]C[1],0),"""")" ' Cursor auf zeile 16 setzen Cells(16, Target.Column).Select Else MsgBox "In Zeile 16 fehlt der manuell erfasste Wert" Cells(16, Target.Column).Select End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If (Intersect(Target, Range("F10:P10")) Is Nothing) And LCase(Target) "ist" Then Exit Sub Application.EnableEvents = False Target.Offset(6, 0).FormulaLocal = "=SVERWEIS($D$16;Tabelle2!$C:$G;H3;0)" Application.EnableEvents = True End Sub

Hallo wossi,
den folgende Code im VBA-Editor unter der Tabelle einfügen. Er wird ausgeführt, wenn SOLL in IST geändert wird (direkte Zellwert eingabe). Ob es in Verbindung mit dem Spilbutton funktioniert weiss icht nicht.
DIe Hilfswerte in Zeile 3 (1, 2, 3 usw) werden nicht benötigt, kann man mit Funktion SPALTE lösen.
Gruß
Franz


erzeugte Formel in H4:
=SVERWEIS($D16; Tabelle2!$C:$R; SPALTE(H16) - SPALTE($D16)+ 1; FALSCH)
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Zeile As Long, strFormel As String
If Not Intersect(Target, Range("E10:P10")) Is Nothing _
And Target.Cells.Count = 1 Then
If LCase(Target.Value) = "ist" Then
If MsgBox("Sollen die Werte in Spalte " & Target.Column _
& " (" & Chr$(Target.Column + 64) & ") durch die Formel ersetzt werden?", _
vbQuestion + vbYesNo) = vbYes Then
'Wert durch Formel ersetzen für Zeilen mit Eintrag in Spalte 4 eintragen
For Zeile = Target.Row + 2 To Cells(Rows.Count, 4).End(xlUp).Row
If Not IsEmpty(Cells(Zeile, Target.Column)) Then
strFormel = "=VLOOKUP(R[0]C4, 'Tabelle2'!C3:C18, column(R[0]C[0]) " _
& "- column(R[0]C4)+ 1 , False)"
Cells(Zeile, Target.Column).FormulaR1C1 = strFormel
End If
Next
End If
End If
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Formel per VBA einfügen, wenn Wert in Zelle = "IST

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel per VBA einfügen, wenn Wert in Zelle = "IST

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread