Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: IF Then funktion mit VBA

IF Then funktion mit VBA
26.06.2007 16:44:00
Raphael
Hallo Excelianer
Ich habe eine Frage:
Ich möchte die Zelle D7 Flexibel halten, das bedeutet, wenn ich in Zelle D7 was reinschriebe dann soll das stehen bleiben, wenn aber nichts drin steht, dann soll der Wert aus H7 in dieser Zelle stehn. bzw wenn ich etwas aus D7 wieder rausnehme, dann soll auch wider der Wert(Text) aus H7 drin stehn.
Mein Vorschlag sah so aus. funktioniert aber nciht.
Kann mir jemand helfen?

Private Sub Worksheet_Calculate()
If Range("D7") = Range("H7") Then
Range("D7").Value = Range("H7")
End If
End Sub


Danke Euch
MFG
raphael

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: IF Then funktion mit VBA
26.06.2007 16:51:00
Beverly
Hi Raphael,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$D$7" Then Exit Sub
If Target = "" Then Target = Range("H7")
End Sub


________________________________________

Anzeige
Danke die Zweite ;-)
26.06.2007 16:56:56
Raphael
Danke für deine promte erneute hilfe.....

AW: IF Then funktion mit VBA
26.06.2007 16:54:42
Rudi
Hallo,
so?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then
On Error GoTo ERRHANDLER
Application.EnableEvents = False
If Target = "" Then Target = Range("H7")
End If
ERRHANDLER:
Application.EnableEvents = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige