Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wochentag aus Uberschrift in Zelle uebernehmen

Wochentag aus Uberschrift in Zelle uebernehmen
25.06.2018 13:39:01
Henny
Hallo zusammen,
ich bin auf der Suche nach einem Makro, das mir den Wochentag aus einer Ueberschriftszelle hinter jede Zeile im Tabellenblatt schreibt, bis in der Ueberschrift der naechste Wochentag steht.
https://www.herber.de/bbs/user/122253.xls
Hier die Exceltabelle dazu. Tabellenblatt 1 zeigt die Ausgangssituation. Tabellenblatt 2 das gewunschte Format.
Kann mir jemand weiterhelfen?
Vorab vielen Dank fuer eure Bemuehungen.
Henny

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: im Datenblatt ("Ausgang")? ...
25.06.2018 14:20:03
neopa
Hallo Henny,
.. dann würde auch eine Formel ausreichend sein. Und zwar in F4:

=WENN((A4="")+(B4="Num");"";VERWEIS(9;1/(B$1:B4="Num");A:A)) und Formel ziehend nach unten kopieren.
Gruß Werner
.. , - ...
AW: Wochentag aus Uberschrift in Zelle uebernehmen
25.06.2018 14:49:25
UweD
Hallo
so?
Modul1 
Option Explicit 
 
Sub Wochentage() 
    Dim TB1, TB2, Sp As Integer, LC As Integer, LR As Double, i As Double 
     
    Set TB1 = Sheets("Ausgang") 
    Set TB2 = Sheets("Ziel") 
    Sp = 6 'Spalte F 
     
     
    With TB2 
        'Reset 
        .Columns.Delete 
         
        'Daten kopieren 
        TB1.UsedRange.Copy .Cells(1, 1) 
         
        LR = .Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes 
 
        'Temporäre Formel setzen 
        .Cells(1, Sp + 1) = "Tmp" 
        .Cells(2, Sp + 1).Resize(LR, 1).FormulaR1C1 = "=COUNTA(RC[-6]:RC[-1])" 
         
        'Filter setzen 
        Columns(Sp + 1).AutoFilter Field:=1, Criteria1:="0" 
         
        'leere Zeilen löschen 
        .Rows(2).Resize(LR).Delete xlUp 
        .AutoFilterMode = False 
         
        'Temp. Spalte löschen 
        .Columns(Sp + 1).Delete xlLeft 
         
        'Formel für Wochentag setzen und in Werte umwandeln 
        'wenn Doppelpunkt vorhanden... 
        LR = .UsedRange.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes 
        With .Cells(2, Sp).Resize(LR - 1, 1) 
            .FormulaR1C1 = _
                "=IF(ISNUMBER(FIND("":"",R[-1]C[-5])),R[-1]C[-5],R[-1]C)" 
            .Value = .Value 
        End With 
         
        'Filter setzen für Zellen mit Doppelpunkt 
        Columns(1).AutoFilter Field:=1, Criteria1:="*:*" 
         
        'leere Zeilen löschen 
        .Rows(2).Resize(LR).Delete xlUp 
        .AutoFilterMode = False 
    End With 
End Sub

LG UweD
Anzeige
AW: Wochentag aus Uberschrift in Zelle uebernehmen
25.06.2018 17:16:52
Henny
Hallo Uwe,
vielen Dank! Leider bekomme ich folgende Fehlermeldung:
Run-time error 1004
Application-defined or object-defined error
Das Makro funktioniert bei mir nicht.
Hast du eine Idee woran es liegt?
AW: Wochentag aus Uberschrift in Zelle uebernehmen
25.06.2018 17:31:02
UweD
In welcher Zeile tritt der Fehler denn auf
Ggf mit F8 im Einzelschrittmodus durchlaufen
LG UweD
AW: Wochentag aus Uberschrift in Zelle uebernehmen
25.06.2018 17:49:12
Henny
Hallo Uwe,
mein Fehler! Wenn ich die Daten in Ziel loesche, klappt es :)
Vielen vielen Dank! Super!
gruss Henny
AW: Wochentag aus Uberschrift in Zelle uebernehmen
25.06.2018 17:21:12
Henny
Hallo Uwe,
leider bekomme ich folgende Fehlermeldung:
Run-time error 1004
Application-defined or object-defined error.
Weisst du woran es liegen kann?
Danke und Gruss
Henny
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige