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

Spalte einfügen und Monat hinterlegen

Forumthread: Spalte einfügen und Monat hinterlegen

Spalte einfügen und Monat hinterlegen
Markus
Hallo zusammen,
ich brauche Eure Hilfe!
Ich habe folgende Tabelle.
https://www.herber.de/bbs/user/76983.xls
Der erste Reiter - so sieht es aus.
Der zweite Reiter - so soll es aussehen. Per Makro würde ich ab Zeile 3 eine neue Spalte A einfügen.
Was ich aber nicht hinkriege. Wie kann ich per VBA-Code genau die einzelnen Monate - wie dargestellt - clustern. Im Beispiel habe ich das für Januar, Februar und März manuell gemacht.
Viele Grüße
Markus
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Spalte einfügen und Monat hinterlegen
13.10.2011 11:54:03
Markus
Noch zur Ergänzung.
Der Kalender wird per Makro erstellt. Daher wäre es super, wenn der letzte Schritt (Spalte und Monat clustern) auch mit einem VBA-Code funktionieren könnte.
AW: Spalte einfügen und Monat hinterlegen
13.10.2011 13:16:42
Tino
Hallo,
kannst mal testen, Tabelle im Code noch anpassen.

Sub Start()
Dim rngAnfang As Range, rngEnde As Range, rngBereich As Range
Dim n&

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    .EnableEvents = False

    With Tabelle1 'Tabelle anpassen <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
        Set rngBereich = .Range("A3", .Cells(.Rows.Count, 1).End(xlUp))
        rngBereich.Insert Shift:=xlToRight
        Set rngBereich = rngBereich.Offset(0, -1)
        With rngBereich
            .FormulaR1C1 = "=IF(RC[1]<>"""",MONTH(RC[1]),"""")"
            .Value = .Value
            For n = 1 To 12
                Set rngAnfang = .Find(What:=n, After:=.Cells(.Rows.Count, 1), LookIn:=xlValues, LookAt:= _
                                 xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
                Set rngEnde = .Find(What:=n, SearchDirection:=xlPrevious)

                If Not rngAnfang Is Nothing Then
                    If Not rngEnde Is Nothing Then
                        With Range(rngAnfang, rngEnde)
                            .MergeCells = True
                            .HorizontalAlignment = xlCenter
                            .VerticalAlignment = xlCenter
                            .Orientation = xlVertical
                            .Value = MonthName(n, False)
                            
                            With .Font
                                .FontStyle = "Fett"
                                .Size = 15
                            End With
                        End With
                    End If 'rngEnde 
                End If 'rngAnfang 
                Set rngAnfang = Nothing: Set rngEnde = Nothing
            Next n
        End With
    End With

    .ScreenUpdating = True
    .DisplayAlerts = True
    .EnableEvents = True
End With
End Sub
Gruß Tino
Anzeige
AW: Spalte einfügen und Monat hinterlegen
13.10.2011 19:12:31
Markus
Hallo Tino,
das Makro meckert an folgender Stelle:
Set rngBereich = .Range("A3", .Cells(.Rows.Count, 1).End(xlUp))
Laufzeitfehler 424
Objekt erforderlich
Klappt
13.10.2011 19:15:36
Markus
Hallo Tino,
funktioniert perfekt. Ich hatte einen Fehler beim Reiternamen.
Besten Dank!
Viele Grüße
Markus
Anzeige
@ Tino : HELP!
15.10.2011 12:16:01
Markus
Hallo Tino,
wie müsste der Code geändert werden, wenn ich die Spalte A ab Zeile 3 bereits für diesen Code vorgesehen habe. Also ohne einfügen dieses Bereiches.
Ich kriege es nicht hin. :-(
Danke!
Viele Grüße
Markus
AW: @ Tino : HELP!
15.10.2011 13:44:14
Tino
Hallo,
was meinst Du damit?
Ist dieser Bereich bereits als Name definiert?

Set rngBereich = Range("Mein Name für diesen Bereich")

Ist dieser Bereich bereits als Range- Objekt in einer Variablen festgelegt?

Set rngBereich = rngMainRangeObject
In beiden fällen kannst Du das With Tabelle1 u. das dazugehörige End With weglassen,
wenn der Code sich in einem allgemeinen Modul befindet.
Gruß Tino
Anzeige
AW: @ Tino : HELP!
15.10.2011 14:40:28
Tino
Hallo,
ach so die Spalte ist schon vorhanden.
Kannst mal testen.
https://www.herber.de/bbs/user/77022.xls
Gruß Tino
Anzeige
Perfekt, danke schön!
15.10.2011 14:53:58
Markus
;

Forumthreads zu verwandten Themen

Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
x Wochen zurückrechnen und Wochentag finden
schneewittchen123

Hallo zusammen,
ich habe eine kurze Frage, an der ich mir allerdings die Zähne ausbeiße:
ich möchte von einem gegebenen Datum (in Zelle A3) z.B. 3 Wochen zurückrechnen, aber wenn der entsprechende Tag kein Montag ist, dann soll er als Termin den Montag ausgeben.
Bsp.:
vom 25.04....
03.02.2009 11:50:00
Thread-ID: 1046579
9 Beiträge
Tage in Zeiträumen best Monaten zuordnen
Gorkij

Moin,moin,
liebe Leute, habe ein Problem und hoffe Unterstützung, nachdem alle meine zusammengebastelten Hilfskonstruktionen nicht taugen:
In den Spalten b und c in den Zeilen 2 - 100 stehen jeweils Anfangs- und Enddaten von Unterbrechungszeiten, in der Spalte a der Name des jeweili...
22.04.2009 12:04:12
Thread-ID: 1070302
3 Beiträge
1,2,3 - kleine Rätselei zur Wochenmitte
NoNet

Hallo Excel-/Zahlen-/Rätselfans,
die halbe Arbeitswoche ist für die meisten Excel-Benutzer wieder vorüber - dies ist jedoch kein Grund, jetzt schon den Denkapparat herunterzufahren ;-)
Ganz im Gegenteil : Zum zeitlichen "Höhepunkt" der Arbeitswoche präsentiere ich heute ein kleines Räts...
11.01.2012 12:18:51
Thread-ID: 1245627
3 Beiträge
1,2,3 - kleine Rätselei zur Wochenmitte
NoNet

Hallo Excel- und Rätselfreunde,
pünktlich zur Wochenmitte biete ich euch heute eine kleine Rätselei an - erstellt natürlich mit Excel ;-) :

Die Datei dazu gibt es hier : https://www.herber.de/bbs/user/78489.xlsx
Lösungen bitte in der Form A1:B2 als Antwort auf diesen Thread.
18.01.2012 13:02:34
Thread-ID: 1246721
13 Beiträge
1,2,3 - kleine Rätselei zur Wochenmitte
NoNet

Hallo EXCEL-, Zahlen-, Rätselfreunde,
zur Wochenmitte präsentiere ich euch heute ein recht "einfaches" (da nur mathematische Grundrechenaufgaben) aber dennoch "knackiges" Rätsel-Labyrinth :
Screenshot Einblenden (zum Ausblenden bitte den Screenshot anklicken)



Hier der...
25.01.2012 14:04:25
Thread-ID: 1247888
31 Beiträge
1,2,3 - kleine Rätselei zur Wochenmitte
NoNet

Hallo EXCEL- und Rätselfreunde,
schön, dass eure PCs heute trotz der klirrenden Kälte "angesprungen" und eure Internetleitungen nicht vollständig vereist sind, so dass ihr diese Rätselei heute anschauen konntet.
Zur Wochenmitte biete ich euch heute ein Logical (EXCEL-Foren-Antworten) a...
01.02.2012 12:42:34
Thread-ID: 1248768
7 Beiträge
Anzeige
1,2,3 - kleine Rätselei zur Wochenmitte
NoNet

Hallo EXCEL- und Rätselfreunde,
Zur Wochenmitte biete ich euch heute eine Zahlenrätselei, bei der lediglich Ziffern 0-9 in ein Raster einzusetzen sind, so dass alle angegebenen Vergleiche (Kleiner - Grösser - Gleich) erfüllt sind und die Summen der Zeilen-/Spalte mit den vorgegebenen Summen...
08.02.2012 15:18:32
Thread-ID: 1249752
3 Beiträge
1,2,3 - kleine Rätselei zur Wochenmitte
NoNet

Hallo EXCEL- und Rätselfreunde,
Zur Wochenmitte biete ich euch heute eine Sudoku-Variante, bei der die einzelnen Bereiche keine 3x3 Blöcke sind, sondern ungleichmäßig geformt sind :
Vielen Dank nochmals an Sepp (alias Josef E) für die Funktion zur "Berechnung unterschiedlicher Werte in...
15.02.2012 13:03:12
Thread-ID: 1250775
9 Beiträge
1,2,3 - kleine Rätselei zur Wochenmitte
NoNet

Hallo EXCEL- und Rätselfreunde,
Zur Wochenmitte biete ich euch heute ein einfaches Kakuro, bei dem lediglich Ziffern 1-9 in ein Raster einzusetzen sind, so dass alle angegebenen Summen übereinstimmen :
Screenshot Einblenden (zum Ausblenden bitte den Screenshot anklicken)


H...
07.03.2012 13:18:35
Thread-ID: 1254013
3 Beiträge
1,2,3 - kleine Rätselei zur Wochenmitte
NoNet

Hallo EXCEL- und Rätselfreunde,
Zur Wochenmitte biete ich euch heute ein Symbol-Zahlenrätsel, bei der lediglich Ziffern 0-9 unter die richtigen Symbole einzusetzen sind, so dass alle angegebenen Rechenaufgaben mit den resultierenden Ergebnissen übereinstimmen :
Screenshot Einblenden (zu...
14.03.2012 14:34:05
Thread-ID: 1254934
5 Beiträge
Wert eines Monats ausgeben, aus einer Jahresübersi
Alex

Hallo Excel-Spezis,
der Alex benötigt mal wieder Hilfe...
http://img7.imagebanana.com/img/emebdytt/Pic_01.JPG
Hier auf dem Bild sieht ihr, in der Zeile 1 und 2, von der Spalte B bis L den Ziel- und Ist Wert. Aus dieser Tabelle benötige ich jeweils von dem jetzigen Monat -1 die Da...
04.05.2012 13:21:00
Thread-ID: 1262173
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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