Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1812to1816
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn ein neuer Monat beginnt, dann...

Wenn ein neuer Monat beginnt, dann...
23.02.2021 19:36:38
Marcel
Hallo,
ich habe eine Liste und in Spalte C wird per Makro ein Datum eingetragen.
Es soll gleichzeitig das letzte Datum in Spalte C abgefragt werden und wenn ein neuer Monat begonnen hat, 3 Zeilen weiter das neue Datum eingetragen werden.
Wenn ich ein richtiges Datum in die Formel schreibe funktioniert das auch, aber so nicht:
letzte = Application.Max(.Cells(Rows.Count, 3).End(xlUp))
letzte2 = Application.Max(.Cells(Rows.Count, 3).End(xlUp).Row + 3)
If Month(Date) > Month(letzte) Then
.Cells(letzte2, 3) = Format(Date, "MMMM")

so klappt es: 
If Month(Date) > Month("23.01.2021") Then
.Cells(letzte2, 3) = Format(Date, "MMMM")
Danke für eure Antworten.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn ein neuer Monat beginnt, dann...
23.02.2021 19:53:15
Regina
Hi,
als was ist "letzte" denn deklariert? Wa steht zum Zeitpunkt des Vergleichs in letzte?
Das Ganze mit Max vestehe ich nicht. Hier wird ja nur der Wert der letzten Zelle in C ausgewertet, wozu dann Max?
Gruß Regina
AW: Wenn ein neuer Monat beginnt, dann...
23.02.2021 21:26:55
Marcel
Hallo Regina,
Dim letzte As Date
zum Zeitpunkt des Vergleichs steht in letzte ein Datum z.B. 23.01.2021.
ich habe den Code aus einer anderen abfrage wo Max abgefragt wird. Der Code kann dann auch sein: 
letzte = Worksheets("Aufträge " & Year(Date)).Cells(Rows.Count, 3).End(xlUp)
letzte2 = Worksheets("Aufträge " & Year(Date)).Cells(Rows.Count, 3).End(xlUp).Row + 3

Anzeige
AW: Wenn ein neuer Monat beginnt, dann...
23.02.2021 21:39:01
Werner
Hallo,
meinst du so? 
Dim loLetzte As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
If Month(Date) > Month(Cells(loLetzte, "C")) Then
Cells(loLetzte, "C").Offset(3) = Format(Date, "MMMM")
End If
End With
Gruß Werner
AW: Wenn ein neuer Monat beginnt, dann...
24.02.2021 11:32:20
Marcel
Hallo Werner,
erstmal vielen Danke und es funktioniert super. Danke.
Ich habe noch eine Frage. Wenn ich jetzt den ausgegebenen Monat z.B. März in Bold=True und Größe 12 angezeigt haben möchte, wo schreibe ich das in den Code?
Cells(letzte, 3).Offset(3) = Format(Date, "MMMM", Bold=True?, Size = 12? )
Habe es schon versucht, aber irgendwie bekomme ich es nicht hin.
Anzeige
AW: Wenn ein neuer Monat beginnt, dann...
24.02.2021 12:31:56
Werner
Hallo,
an meinem Code hat auch noch etwas nicht gepasst. Bei manchen Cells-Objekten hatte ich den Punkt davor vergessen. 
Dim loLetzte As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
If Month(Date) > Month(.Cells(loLetzte, "C")) Then
.Cells(loLetzte, "C").Offset(3) = Format(Date, "MMMM")
.Cells(loLetzte, "C").Offset(3).Font.Bold = True
.Cells(loLetzte, "C").Offset(3).Font.Size = 12
End If
End With
Gruß Werner
AW: Wenn ein neuer Monat beginnt, dann...
24.02.2021 12:44:42
Marcel
Hallo Werner,
nochmals vielen Dank.
Alles funktioniert wie ich es mir vorstelle. Danke
Gruß Marcel
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
24.02.2021 12:49:21
Werner

309 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
wenn Änderung Zellinhalt dann Macro
Joachim

Hallo,
ich hab 2 Tabellen (Eintrag und Statistik) und 2 Diagramme (Fehler und TelFax). Bei der Tabelle Statistik habe ich folgenden Code eingetragen:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:G30")) Is Nothing Then Call DiaFehlerFormat Call...
07.05.2009 14:02:59
Thread-ID: 1073604
12 Beiträge
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Anzeige
Stichwort in Zelle B7,dann zusammzählen VBA
Wolfgang

Hallo,
im Tabellenblatt "Start" befinden sich in Zelle B7 bis B23 bestimmte Stichwörter, die auch in Tabelle "Daten", Spalte H vorkommen. Ich würde gerne zu jedem Stichwort zwei Abfragen klären:
Beispiel:
(Abfrage1)
1. Stichwort aus Zelle B7 kommt in Spalte H (Tabelle "Daten") v...
06.10.2009 19:49:07
Thread-ID: 1107632
10 Beiträge
Wenn Wert gleich dann Buchstabe ausgeben
Thomas

Hallo,
ich steht gerade total auf dem Schlauch.
Ich habe eine Spalte (A) mit über 300 Werten (ganze Zahlen), diese möchte ich nun mit einer anderen Spalte (E) vergleichen um hier Einträge zu finden, welche in der ersten Spalte ggü der 2ten Spalte nicht vorhanden sind.
Dann sollte ic...
24.11.2009 12:25:40
Thread-ID: 1119703
3 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
VBA: WENN bestimmte Zahl, DANN Zahl, SONST Eingabe
ernst

Hallo VBA Experten
Ich bin Lehrer und kenne mich mit xls recht gut aus, kann jedoch leider kein VBA. Ich habe nun ein Problem, dass m.M. nach nur mit VBA zu lösen ist. Vielleicht kann mir ja wer von Euch helfen:
Ich habe 2 Tabellenblätter (es geht um Skikursteilnahme und -verwaltung):<...
22.12.2009 14:26:44
Thread-ID: 1125569
9 Beiträge
Beginnt mit mit Zahlen | Herbers Excel-Forum
Scicchitano
Hallo,
ich habe ein Problem mit dem Autofilter im VBA-Modus. Ich möchte mit Eingabe in eine TextBox eine Zahl Filtern. Das Ziel ist wenn ich eine 3 eintippe, dass alles was mit 3 beginnt gefiltert wird.
Habe folgender Code:
Dim SpNr As Integer
SpNr = 2 'SuchSpalte A=1
Selection....
21.01.2010 07:47:23
Thread-ID: 1131593
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
11
2
4
9
2
2
8
2
2
6
4
2
2
3
2
4
5
2
9
2
7
8
2