Live-Forum - Die aktuellen Beiträge
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige