Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jahr(heute()) deklarieren in VBA

Forumthread: Jahr(heute()) deklarieren in VBA

Jahr(heute()) deklarieren in VBA
27.11.2004 17:06:47
Korl
Hallo,
im nachfolgenden Code befindet sich in "Range(K1") das heutige Jahr.
Also =Jahr(heute())
If Worksheets("Tabelle1").Range("C1") Range("K1") Then
Wie muß ich es im VBA deklarieren.
Gruß Korl
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Jahr(heute()) deklarieren in VBA
27.11.2004 17:13:05
Frank
Hallo Korl,
versuchs mal so
Dim MDat As date
MDat = Range("K1").value
If Worksheets("Tabelle1").Range("C1").value MDat Then
...
ungetestet.
Gruß
Frank
AW: Jahr(heute()) deklarieren in VBA
27.11.2004 18:09:53
Korl
Hallo Frank,
entschuldige bitte, ich habe mich falsch ausgedrückt.
Ich möchte mir die Zelle Range("K1")ersparen und diese im VBA-Code ersetzen durch
"Jahr(heute())" ?
Also im VBA-Code soll Range(C1") gleich verglichen werden mit "Jahr(heute())"
Insgesamt sieht mein Test-Code so aus:

Sub Versuch()
If Worksheets("Tabelle1").Range("C1") <> Range("K1") Then
MsgBox ("Bedigung für den Test nicht erfüllt")
End If
If Worksheets("Tabelle1").Range("C1") = Range("K1") Then
ActiveCell.FormulaR1C1 = "'Versuch"
MsgBox ("Test wurde ausgeführt")
End If
End Sub

Anzeige
Year(Date)
Kurt
...das wäre mit einem bischen Guten Willen auch selbstständig ermittelbar gewesen !
...und Tschüss Kurt
Danke Frank und Kurt
27.11.2004 18:37:30
Korl
Hallo Frank und Kurt,
Danke für Eure Hilfe, war eigentlich schon na dran, aber, aber...
wünsche Euch einen schönen 1. Advent!
Gruß Korl

Forumthreads zu verwandten Themen

Max(wenn()) geht, Min(wenn()) nicht
Peter


Hallo,
Wieso geht Max(Wenn() und nicht Min(Wenn()?
=MAX(WENN(('PSMS calculations'!$A$2:$A$1294=A3)*('PSMS calculations'!$C$2:$C$1294=B3)=1; 'PSMS calculations'!$P$2:$P$1294;0)) funktioniert wunderbar.
Die selbe als Min(Wenn() geht nicht:
=MIN(WENN(('PSMS calculations'!$A$...
06.09.2012 18:18:10
Thread-ID: 1277692
5 Beiträge
Worksheets(Array()) Schleife
Dani

Hallo an alle,
habe folgenden Code aus dem Archiv zusammengeschustert, aber leider wird das Makro nur in dem Blatt ausgeführt, was gerade aktiv ist, anstatt auf die definierten Tabellenblätter?!
Wisst Ihr warum das so ist?
Danke!
Dani
Sub SpaltenAusblendenRest() Dim Startmon...
28.02.2013 18:56:59
Thread-ID: 1301616
5 Beiträge
Summe(Bereich.Verschieben()) über mehrere Tabellen
Falk

Hallo zusammen,
funktioniert die Funktion Summe(Bereich.Verschieben()) eigentlich auch über mehrere Tabellenblätter?
Ich habe für eine Datei die für die Kostenstelle mehrere Blätter enthält für die einzelnen Kostenarten. Jedes Blätt für die Kostenarten ist gleich aufgebaut; A1 = Januar,...
10.09.2013 10:24:15
Thread-ID: 1330149
3 Beiträge
Anzeige
Makro MAX(WENN())
Björn

Hi,
folgendes Problem ist in meinem VBA-Makro aufgetreten:
In einer Excel-Datei existieren mehrere Tabellenblätter. Im Tabellenblatt 1 (Spalte D) sind Starttermine in der Form TT:MM:YY hh:mm:ss aufgelistet. Hinter jedem Datum steht ein Zahlenwert (Spalte G).
Es kann vorkommen, dass...
25.07.2014 15:56:50
Thread-ID: 1372341
3 Beiträge
Arrayfrage: array(array(),array())
Arthur
Hallo Excelianer.
Um schnell an ein zweidimensionales Array zu gelangen dachte ich mir: Nimm die Array()-Funktion. Was dabei herauskommt ist ein array, aber nicht wie erwartet.
Sub beispiel() Dim XArr XArr = Array(Array("Hello", "World", "!"), Array(42, 7, 12)) End Sub Wie bekommt man das...
09.04.2016 10:51:32
Thread-ID: 1486996
14 Beiträge
Anzeige
MAX(MMULT()) erweitern um Rankingmöglichkeit
Patryk

Hallo zusammen,
ich nutze die Formel =MAX(MMULT... um bei ca. 2000 Zeilen die grösste Summe je Zeile zu ermitteln. Das Ergebnis ist somit die Summe der Zeile mit der größten Summe aller Zeilen.
Für ein Ranking brauche ich nun die zweitgrösste Zeilensumme, drittgrösste Zeilensumme, viert...
08.06.2016 17:25:03
Thread-ID: 1497777
14 Beiträge
Zählen mit Bedingung (nicht ZÄHLENWENN())
Savarol

Hallo Zusammen,
in Tabelle 1 stehen in Spalte A Materialnummern, in Tabelle 2 in Spalte A auch die Materialnummern und dahinter ein Lieferant und Bestellnummer...
Jetzt möchte ich wissen, bei wieviel unterschiedlichen Lieferanten habe ich das Teil bestellt.
Es kommt also vor, dass d...
20.09.2017 08:23:51
Thread-ID: 1581452
8 Beiträge
Anzeige
=index(Vergleich();Vergleich())
Bjoern

Hallo Forumer,
ich habe ein kniffliges Problem zu lösen.
Ich hab eine komplexe Tabelle (Matrix) vorliegen, die nach bestimmten Kriterien ausgelesen werden soll.
Die Tabelle zeigt folgendes Szenario:
In einer Fabrik gibt es 3 unterschiedliche Center, die jeweils 4 unterschiedlich...
01.12.2017 19:42:55
Thread-ID: 1594863
8 Beiträge
filter(array()) 2-Dim
Toni

Hallo Excel-Freunde, einen schönen Einstieg ins Wochenende,
mit nachfolgender Aufgabenstellung zum Thema filter(array()) komme ich aktuell nicht weiter.
Filter() setzt ja bekanntlich bei 1-dim an, was ich mit den beiden Funktionen zu umgehen versuche, noch ohne Erfolg und irgendwie ist...
09.08.2019 09:45:45
Thread-ID: 1706778
9 Beiträge
VBA - Index(Match()) Suchmatrix Problem
Johannes

Hallo zusammen,
ich brauche mal wieder dringend eure Hilfe, da ich einfach nicht mehr weiterkomme.
Ich versuche mal mein Problem verständlich zu erklären.
Also ich stelle gerade ein Auswertungsblatt zusammen (Sheet "Auswertung"), welches sich einzelne Daten via Index(Match()) aus de...
30.08.2019 12:38:40
Thread-ID: 1710452
4 Beiträge
Anzeige
AW: =WENN(M254=L254;HEUTE())
christian

Hallo,
bei der obengenannten Formel soll das Datum nur einmal einschrieben werden, daß heißt nicht mehr geändert werden. Was muß ich ändern.

MfG
Christian
08.08.2003 10:39:24
Thread-ID: 291574
5 Beiträge
SUMMENPRODUKT(()*()*SUCHEN())
Christoph
Hallo allerseits,
ich habe mal wieder ein Problem mit der Funktion "SUMMENPRODUKT".
In Spalte A (Matrix1) stehen Zahlen von 1 bis 5
In Spalte B (Matrix2) stehen Zahlen 200, 300, ...
in Spalte C (Matrix3) stehen Texte in der Art: "xx29C -01", "29C -01",
"B 30A - BB", u.ä.
Nun...
13.02.2004 16:19:13
Thread-ID: 382094
9 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige