Abfrage Falsch ???

Forumthread: Abfrage Falsch ?

Abfrage Falsch ?

15.01.2005 18:57:44

walter

Guten Abend,
habe wohl doch kein so gutes Wissen !
Habe folgendes Makro eingesetzt bzw. dazwischen:
'------------ Erst aktuelles Datum in "Q2" kopieren --------------------------
'der MappenName ist unterschiedlich, daher "waw" festgelegt.
'waw = ActiveSheet.Name
If ActiveSheet(waw).("Q2") ActiveSheet(waw).("C14").Select Then
MsgBox "kein Datum oder unterschiedlich"
End If
ActiveSheets("C14").Select
Selection.Copy
Range("Q2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
'----------------------------------------------------------------------------
Es soll also abgefragt werden ob ein Datum vorhanden ist oder / und ob das
Datum unterschiedlich zum Datum in Zelle C14 ist .
Vielleicht kann mir jemand kurz helfen,
Danke für die Mühe im voraus !!!
Gruß Walter

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abfrage Falsch ?

jinx
Leider noch nicht...

15.01.2005 19:23:30

walter
Nachfrage

jinx
Danke habe etwas angepaßt

16.01.2005 11:53:39

walter

AW: Abfrage Falsch ?

jinx

Moin, Walter,
meinst Du etwas in dieser Art:

Dim waw
'------------ Erst aktuelles Datum in "Q2" kopieren --------------------------
'der MappenName ist unterschiedlich, daher "waw" festgelegt.
Set waw = ActiveSheet
If waw.Range("Q2") <> waw.Range("C14") Then
MsgBox "kein Datum oder unterschiedlich"
End If
Range("C14").Copy
Range("Q2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Set waw = Nothing
'----------------------------------------------------------------------------

cu
jinx

Leider noch nicht...

15.01.2005 19:23:30

walter

Hallo jinx, (was immer das heißen mag )
ganz für den Tip,
läuft alles prima,
gruß Walter

Nachfrage

jinx

Moin, Walter,
darf ich nachfragen, ob das Problem gelöst ist? Mir ist aufgrund des Symbols nicht klar, ob die Beschreibung im Text gilt oder der Titel. Möglicherweise ist eine Lösung ohne Nutzung der Zwischenablage besser geeignet, wobei der Zusatz ~.Value der Standard für den Range-Befehl ist und weggelassen werden könnte:

Dim waw
'------------ Erst aktuelles Datum in "Q2" kopieren --------------------------
'der MappenName ist unterschiedlich, daher "waw" festgelegt.
Set waw = ActiveSheet
With waw
If .Range("Q2").Value <> .Range("C14").Value Then
MsgBox "kein Datum oder unterschiedlich"
.Range("Q2").Value = .Range("C14").Value
End If
End With
Set waw = Nothing
'----------------------------------------------------------------------------

cu
jinx

Danke habe etwas angepaßt

16.01.2005 11:53:39

walter

Hallo Jinx,
finde ich toll das Du nachhakst.
Habe etwas angepaßt, bin zufrieden.
Gruß Walter

Beliebteste Forumthreads (12 Monate)

Forumthread: Abfrage Falsch ?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread