Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige