Anzeige
Archiv - Navigation
1520to1524
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
Inhaltsverzeichnis

VBA - formatierte zellen fortlaufend kopieren

VBA - formatierte zellen fortlaufend kopieren
09.11.2016 14:09:06
Klaus
Hallo Gemeinde,
ich habe folgendes Problem: Ich bräuchte einen Code der mir die vorherige Zellen kopiert und jeweils fortlaufend beim klicken des Buttons in die nächste Spalte einfügt und dabei die erste Spalte ausblendet.
Mein bisheriger Code:
Sub Start()
Dim rng As Range
Set rng = Cells(5, Columns.Count).End(xlToLeft)
If rng.Column = 1 And rng.Value = "" Then
rng.Value = Date
rng.NumberFormat = "mmm/ yy"
Else

Range("AE6:AE688").Select
Selection.AutoFill Destination:=Range("AE6:AF688"), Type:=xlFillDefault
Range("AE6:AF688").Select

Columns("J:J").Select
Selection.EntireColumn.Hidden = True
rng.Offset(, 1).Value = DateSerial(Year(rng), Month(rng) + 1, 1)
rng.Offset(, 1).NumberFormat = "mmm/ yy"
End If
End Sub

Bei diesem Code funktioniert auch alles hervorragend, bloß dass wenn ich wieder auf den Button drücke, die Spalte nicht mehr fortlaufend eingefügt wird und keine Spalte ausgeblendet.
Danke im voraus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beispieltabelle
11.11.2016 05:03:58
Werner
Hallo Klaus,
da wäre eine Beispieltabelle nicht schlecht.
Gruß Werner
AW: Beispieltabelle
12.11.2016 11:12:57
Werner
Hallo Klaus,
schau dir deine Beispieldatei mal an.
Ich habe auch noch Änderungen an deinem Code vorgenommen für den Fall, dass die Tabelle leer ist. Bei deinem Code hättest du dann das Startdatum in Spalte A geschrieben, deine Tabelle beginnt aber erst in Spalte B.
https://www.herber.de/bbs/user/109369.xlsm
Gruß Werner
AW: Beispieltabelle
14.11.2016 08:11:45
Klaus
Danke Werner! Genau das habe ich gebraucht !
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
14.11.2016 08:57:43
Werner

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige