Wert nach Änderung einer Zelle schreiben

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandler If Target.Address = Range("Lstg1").Address Then If Range("Lstg1") = "EnEV NiWo" Or Range("Lstg1") = "EnEV Wohn" Then 'bis hier geht's, danach tritt ein Fehler auf! Range("A8").Select ActiveCell.FormulaR1C1 = "Leistungen für EneV 2007 " & Chr(10) & "(Schriftenreihe _ AHO Nr.23)" End If End If ExitCode: Exit Sub ErrorHandler: MsgBox "Hier passiert Scheiße!" Resume ExitCode End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Markus,
probier mal


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
If Target.Address = Range("Lstg1").Address Then
If Target = "EnEV NiWo" Or Target = "EnEV Wohn" Then
Application.EnableEvents = False
Range("A8") = "Leistungen für EneV 2007 " & Chr(10) & _
"(Schriftenreihe AHO Nr.23)"
Application.EnableEvents = True
End If
End If
ExitCode:
Exit Sub
ErrorHandler:
MsgBox "Hier passiert Scheiße!"
Resume ExitCode
End Sub
' ODER:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("Lstg1").Address Then
If Target = "EnEV NiWo" Or Target = "EnEV Wohn" Then
Application.EnableEvents = False
Range("A8") = "Leistungen für EneV 2007 " & Chr(10) & _
"(Schriftenreihe AHO Nr.23)"
Application.EnableEvents = True
End If
End If
End Sub

Noch ein paar Bemerkungen:
Wenn du Range("A8") änderst, erzeugst du damit ein Worksheet_Change-Ereignis.
Und dann soll deine Prozedur laufen - die ja gerade schon läuft.
Deshalb "Application.EnableEvents = False".
Range("Lstg1") = "EnEV NiWo" geht kürzer mit Target = "EnEV NiWo".
Range("A8").Select ist überflüssig, eventuell auch schädlich.
Warum .FormulaR1C1 = "..."? Du willst doch gar keine Formel schreiben, nur den Value ändern:
Range("A8").Value = "..." oder kürzer
Range("A8") = "..."
Braucht man hier wirklich ein Error Handling?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hi Markus,
wenn du das Makro ohne Error Handling laufen lässt, teilt VBA dir Fehlernummer und Fehlertext mit.
Wie lauten die? (Diese Infos sind immer ganz praktisch, wenn man über Fehler redet...)
Und tritt der Fehler tatsächlich in der Zeile Range("A8") = "Leistungen für ..." auf?
Noch eine Frage: Wie ist der Name Lstg1 definiert, auf welchen Bereich bezieht er sich?
Noch eine Frage. Du hast vorhin etwas geschrieben, das ich nicht verstehe:
"Der Fehler tritt dann auf, wenn auf die Zelle des DropDownfeldes (>Lstg1<) eine andere Zelle zugreift,
ist die nicht wird die Funktion ordnungsgemäß ausgeführt"
Was ist die Zelle eines DropDown-Feldes, wie greift eine andere Zelle darauf zu?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then Application.EnableEvents = False Range("B7") = String(5, Target) & " OK" Application.EnableEvents = True End If Application.Calculation = xlCalculationAutomatic Application.Calculation = xlCalculationManual End Sub

Der obige Fehler tritt auch dann nicht auf, wenn der Parameter der UDF nicht von B5 abhängt. Um den Fehler zu produzieren, müssen drei Dinge zusammenkommen: - Eingabe in B5 mittels Gültigkeits-Dropdown - Auswertung von B5 in einer UDF - Belegung einer anderen Zelle im Change-Ereignis

Beliebteste Forumthreads (12 Monate)

Wert nach Änderung einer Zelle schreiben

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

381 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert nach Änderung einer Zelle schreiben

30 Beiträge zum Forumthread Beiträge zu diesem Forumthread

381 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread