Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
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
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe neues Quartal/Spalte in VBA

Hilfe neues Quartal/Spalte in VBA
22.05.2017 14:31:01
JonnyBank
Hallo Freunde
Ich habe folgendes Problem ich möchte in meiner Beispieldatei ein neues Quartal per Buttonklick hinzufügen.
das Makro müsste also folgendes können:
1. die letzte Spalte ermitteln (Vorquartal) um zu wissen wo das neue Quartal hinzugefügt werden soll
2. neue Spalte einfügen
2. nur Formeln (mit entsprechender Formatierung) sollen übernommen bzw. weitergezogen werden( nice to have : zum Jahresende 31.12 können sich die Formeln unterscheiden somit die Formel aus dem Vorjahr nehmen)
3. Werte sollen nicht übernommen werden, da diese monatlich ermittelt werden und nachgetragen werden.
Ich muss im Moment jede einzelne Zeile anpassen was bei über 1000 Zeilen schon etwas dauert.
wäre super wenn mir jemand helfen könnte.
Danke euer Jonny
Link zum Beispiel
https://www.herber.de/bbs/user/113727.xlsx

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe neues Quartal/Spalte in VBA
22.05.2017 15:40:04
UweD
Hallo Jonny
so?
Private Sub QQQ()
    On Error GoTo Fehler
    Dim TB, SP As Integer, LR As Double, LC As Integer
    Dim EZ As Integer, LastQ As Date, RNG, OF As Integer
    
    Set TB = Sheets("Tabelle1")
    SP = 2 'Spalte B 
    EZ = 3 'ab Zeile 
    
    With TB
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
        LC = .Cells(EZ, .Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile 
        LastQ = .Cells(EZ, LC) 'letztes Quartalsende 
        
        Set RNG = .Range(.Cells(EZ + 1, LC + 1), .Cells(LR, LC + 1))
        
        OF = IIf(Month(LastQ) = 9, 4, 1)
        
        RNG.Offset(0, -OF).Copy RNG
        
        On Error Resume Next
        RNG.SpecialCells(xlCellTypeConstants, 23).ClearContents 'konstante Werte löschen 
        On Error GoTo Fehler
    
        .Cells(EZ, LC + 1).Value = DateSerial(Year(LastQ), Month(LastQ) + 4, 0)
        
    End With
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Hilfe neues Quartal/Spalte in VBA
23.05.2017 10:22:38
JonnyBank
Danke UweD
Es dein Makro funktioniert sehr gut in der Beispiel Dateien ich versuche es mal auf die eigentliche Datei anzuwenden.
mfg Jonny
AW: Hilfe neues Quartal/Spalte in VBA
23.05.2017 10:40:44
JonnyBank
Also erst mal das Makro ist der Knaller!
kleines Problem besteht aber noch. Vielleicht kannst du mir da auch noch helfen..
ich habe nach dem aktuellen Quartal noch eine Spalte die unter anderem die Schaltfläche zum starten des Makros beinhaltet könnte diese dann nach aktivieren eins weiter nach rechts rutschen da sonst die Schaltfläche nicht weiter nach rechts springt und das Format danach überschrieben wird ...
mfg Jonny
AW: Hilfe neues Quartal/Spalte in VBA
23.05.2017 11:35:45
UweD
Hallo
ok. dann eine Zeile ergänzen.
        LastQ = .Cells(EZ, LC) 'letztes Quartalsende 
        .Columns(LC + 1).Insert ' neu hinzu 
        Set RNG = .Range(.Cells(EZ + 1, LC + 1), .Cells(LR, LC + 1))

LG UweD
Anzeige
AW: Hilfe neues Quartal/Spalte in VBA
23.05.2017 13:30:25
JonnyBank
Perfekt!
Danke dir!
mfg Jonny
AW: gern geschehen owt
23.05.2017 13:37:35
UweD

301 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wert in Spalte suchen
rebecca

Hallo,
ich möchte 2 Spalten vergleichen und wenn der Wert in einer Spalte steht, soll die Zelle ausgegeben werden.
Also: Spalte A 1,2,3 Spalte B 2,5,6 Dann Spalte C 2, alle anderen leer.
Welche Formel ist geeignet und wie muss ich sie aufbauen?
Dankeschön.
Gruss
...
24.11.2008 15:38:00
Thread-ID: 1027331
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Spalten in VBA anpassen
Markus

Hallo zusammen,
eine vermutlich blöde Frage.
Ich lese aus einem Anwendungsfenster Daten in bestimmte Zellen aus. Wenn alle Daten (je nach Anwendung bis zu 30 Spalteneinträge) ausgelesen sind, erfasse ich die Zeit mit ActiveCell.Offset(0, 10).Value = Format(Date & " " & Time)
10.12.2008 20:45:20
Thread-ID: 1031825
9 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
4 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
4
7
5
2
1
4
2
4
8
3
3
2
10
6
7
7
15
4
4
16
5
8
6
5
2