Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1824to1828
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
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatische vorbelegung

automatische vorbelegung
16.04.2021 20:08:26
Stefan
Hallo,
ich habe bräuchte bitte Unterstützung bei folgender VBA.
Ich habe eine Excel mit Monatsreitern.
In Zelle C2:AG2 ist das Datum.
Unter der Datumszeile bräuchte eine automatische Befüllung der Wochenenden und Feiertage mit z.B. einem X (als Beispiel C4:AG5)
Kann dies so programmiert werden dass sich der Bereich C4:AG5 erweitert wenn ich dazwischen eine Zeile einfüge?
Vielen Dank im Voraus
Gruß
Stefan

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische vorbelegung
17.04.2021 14:18:40
Nepumuk
Hallo Stefan,
wo sollen die Feiertage herkommen, oder sollen die per VBA berechnet werden?
Am einfachsten eine Mustermappe hochladen.
Gruß
Nepumuk
AW: automatische vorbelegung
19.04.2021 09:55:36
Nepumuk
Hallo Stefan,
teste mal:

Option Explicit
Public Sub Insert_X()
Const START_ROW As Long = 4
Const START_COLUMN As Long = 3
Const END_COLUMN As Long = 33
Const INSERT_VALUE As String = "X"
Dim lngMonth As Long
Dim lngRow As Long, lngColumn As Long
Application.EnableEvents = False
For lngMonth = 1 To 12
With Worksheets(MonthName(lngMonth))
For lngRow = START_ROW To .Rows.Count
If .Cells(lngRow, 1).MergeCells Then Exit For
Next
lngRow = lngRow - 1
For lngColumn = START_COLUMN To END_COLUMN
If IsDate(.Cells(2, lngColumn).Value) Then
If Weekday(.Cells(2, lngColumn).Value) = vbSaturday Or _
Weekday(.Cells(2, lngColumn).Value) = vbSunday Then
.Range(.Cells(START_ROW, lngColumn), _
.Cells(lngRow, lngColumn)).Value = INSERT_VALUE
Else
If Not IsError(Application.Match(CLng(.Cells(2, lngColumn).Value), _
Worksheets("VBA").Columns(2), False)) Then _
.Range(.Cells(START_ROW, lngColumn), _
.Cells(lngRow, lngColumn)).Value = INSERT_VALUE
End If
End If
Next
End With
Next
Application.EnableEvents = True
End Sub
Gruß
Nepumuk
Anzeige
AW: automatische vorbelegung
20.04.2021 12:47:34
Stefan
Hi Nepumuk,
ich habe dein VBA in mein Modul 2 kopiert.
Wenn ich einen neue Zeile einfüge passiert leider nichts.
Wenn ich das Makro mit F8 teste dann werden nach und nach nur die ersten beiden Zeilen befüllt (da aber wie gewünscht)
Ich kenne mich leider viel zu wenig mit VBA aus, um hier einen Fehler erkennen zu können.
Gruß
Stefan
AW: automatische vorbelegung
20.04.2021 13:08:02
Nepumuk
Hallo Stefan,
ist die Zelle in Spalte A der neuen Zeile eine verbundene Zelle? Denn danach suche ich um zwischen den verbundenen Zellen in Zeile 3 und in deiner Beispielmappe Zeile 6 die X'e einzufügen.
Gruß
Nepumuk
AW: automatische vorbelegung
20.04.2021 15:05:39
Stefan
Hallo,
nein verbundene Zellen habe ich hier nicht.
Ist genau so wie in meiner Beispielmappe.
Gruß
Stefan
Anzeige
AW: automatische vorbelegung
20.04.2021 15:39:05
Nepumuk
Hallo Stefan,
kann ich nicht nachvollziehen. Bei mir trägt das Makro auch in drei oder 4 Zeilen die X'e ein.
Gruß
Nepumuk
AW: automatische vorbelegung
23.04.2021 13:23:08
Stefan
Hallo Nepumuk,
sorry das war mein Fehler. In den Monatsreitern habe ich dann verbundene Zellen drinnen.
Die Bereiche zwischen den verbundenen Zellen ändern sich allerdings immer wieder (Anzahl Zeilen)
Ich hab mal einen Monatsreiter als Beispiel angehängt.
https://www.herber.de/bbs/user/145747.xlsm
Gruß
Stefan
AW: automatische vorbelegung
23.04.2021 13:39:06
Nepumuk
Hallo Stefan,
in welche Zeilen sollen nun das X eingetragen werden?
Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige