Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 20:08:47
Datum/Zeit in einer Zelle fixieren über Makros
17.05.2024 18:14:48
Aaaah! Tabelle erstellen mit Index
17.05.2024 17:37:33
letztes Zeichen in Zelle entfernen
17.05.2024 17:07:32
Problem bei Diagrammerstellung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
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
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeilen mit Text befüllen

Leerzeilen mit Text befüllen
14.09.2023 22:52:31
EL-TI
Liebes Forum,

habe eine größere Tabelle mit unterschiedlichen Datumseinträgen die sobald sich das Jahresdatum ändert (z. B. 18.11.1973 auf 27.01.1974), durch Leerzeilen getrennt werden. Je nach dem durch 1 oder 3 Leerzeilen. Wenn es möglich wäre, das so durch ein Makro zu realisieren, dass-ein bestimmter Text durch Vorgabe der Leerzeile 1 oder zwei, da eingetragen werden könnte. Text wäre- z. B. "Season" "1974". Wichtiger dabei wäre, dass immer das jeweilige Jahresdatum von der Ersten Eintragung im neuen Abschnitt, mit angehängt wird.

Nachttresor 30.09.1973
Eine Madonna zu viel 18.11.1973

Season 1974

Per Anhalter 27.01.1974
Konzert für einen Außenseiter 24.02.1974

Season 1975

Der Mann 23.03.1975
Heiße Münzen 19.05.1975

usw.

Anfang der Tabelle ist in Zeile 12, Ende ist unterschiedlich und das Datum steht in Spalte "D".
Vielen Dank schon mal im voraus

Viele Grüße
Elfriede

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen mit Text befüllen
14.09.2023 23:48:29
onur
Sorry, meine Glaskugel ist in Reparatur, daher kann ich deine Datei von hier aus nicht sehen.....
Leerzeilen mit Text befüllen
15.09.2023 00:33:51
EL-TI
Hallo onur,

war der Meinung, dass meine Ausführung zu meinem Problem ausreichend sei. Werde also eine Bsp. Datei noch hoch laden.

Viele Grüße
Elfriede


https://www.herber.de/bbs/user/162862.xlsx
Leerzeilen mit Text befüllen
15.09.2023 10:43:52
daniel
hI
naja, um einen Code zu schreiben, muss man ja auch wissen, welche Spalten und Zeilen du verwendest, sonst muss man irgendwas annehmen, was dann dazu führt, dass du den Code wieder anpassen musst (wozu dann viele Fragesteller nicht in der Lage sind)

eine einfach Lösung wäre diese: 

Sub test()

Dim x As Range

For Each x In Columns(4).SpecialCells(xlCellTypeConstants, 1).Areas

    With x(1).Offset(-2, -1)

        With .Font

            .Color = vbRed

            .Size = 12

            .Name = "Calibri"

            .Bold = True

        End With

        .HorizontalAlignment = xlCenter

        .Value = "Season " & Year(x(1))

    End With

Next

End Sub


Gruß Daniel

Anzeige
Leerzeilen mit Text befüllen
15.09.2023 11:23:46
EL-TI
Hallo Daniel,

habe jetzt das Makro von "onur" übernommen und damit ist das Problem gelöst. Aber auch Dir Danke für Dein Makro.

Viele Grüße
Elfriede
Leerzeilen mit Text befüllen
15.09.2023 01:50:36
EL-TI
Hallo onur,

wie immer sehr gute Arbeit abgeliefert. Funktioniert sehr gut, was ich jetzt so auf die schnelle sagen kann. Was Du mir noch mit einbauen könntest, wäre den Textstring zu zentrieren und dass er rot / fett / Calibri 12 erscheint.
Vielen Dank.

Viele Grüße
Elfriede
Leerzeilen mit Text befüllen
15.09.2023 02:23:22
EL-TI
Hallo onur,

ich möchte Dich ja nicht über Gebühr strapazieren oder gar nerven, aber der Text wird nicht zentriert angezeigt. Hatte ich aber geschrieben, Farbe ist O. K.

Vielen Dank.

Viele Grüße
Elfriede
Anzeige
Leerzeilen mit Text befüllen
15.09.2023 11:16:11
EL-TI
Hallo onur,

komme leider erst jetzt dazu zu schreiben. Funktioniert alles zufriedenstellend, Alles O. K. Somit Thread erledigt.
Vielen Dank noch einmal und

Viele Grüße
Elfriede
Gerne !
15.09.2023 12:27:58
onur
AW: Leerzeilen mit Text befüllen
15.09.2023 02:07:25
onur
Auch das konnte ich deinen Ausführungen nicht entnehmen. :)

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige