Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Chrissie07 vom 03.12.2019, 17:56 Options
Datum vervollständigen für ganze Arbeitsmappe
Hallo zusammen,
ich habe ein kleines Problem... ich habe hier ein hervorragendes Makro gefunden womit ich Datumsreihen vervollständigen kann.
Nämlich jenes hier:
Option Explicit
Sub Datum_vervollständigen()
Dim Datum As Date
Dim i As Integer, Zähler As Integer
Application.ScreenUpdating = False
Datum = CDate("01.10.2007")
For i = 2 To 1000
If Datum > "31.10.2007" Then Exit For
If Left(Cells(i + 1, 1), 10) = Datum Then
GoTo Weiter
End If
If Left(Cells(i, 1), 10) <> Datum And Cells(i, 1) <> "" Then
Rows(i).Insert Shift:=xlDown
Cells(i, 1) = Datum
End If
If Left(Cells(i, 1), 10) <> Datum And Cells(i, 1) = "" Then
Cells(i, 1) = Datum
End If
Datum = Datum + 1
Weiter:
Next
For i = Range("A65536").End(xlUp).Row To 2 Step -1
Next
End Sub
Nun habe ich aber das Problem das ich es jedesmal auf ca 120 einzelnen Blättern anwenden muss.
gibt es die Möglichkeit das Makro so umzuschreiben das alle Tabellenblätter geichzeitig vervollständigt werden?
Für eure Hilfe wäre ich sehr dankbar!
LG Chrissie
ich habe ein kleines Problem... ich habe hier ein hervorragendes Makro gefunden womit ich Datumsreihen vervollständigen kann.
Nämlich jenes hier:
Option Explicit
Sub Datum_vervollständigen()
Dim Datum As Date
Dim i As Integer, Zähler As Integer
Application.ScreenUpdating = False
Datum = CDate("01.10.2007")
For i = 2 To 1000
If Datum > "31.10.2007" Then Exit For
If Left(Cells(i + 1, 1), 10) = Datum Then
GoTo Weiter
End If
If Left(Cells(i, 1), 10) <> Datum And Cells(i, 1) <> "" Then
Rows(i).Insert Shift:=xlDown
Cells(i, 1) = Datum
End If
If Left(Cells(i, 1), 10) <> Datum And Cells(i, 1) = "" Then
Cells(i, 1) = Datum
End If
Datum = Datum + 1
Weiter:
Next
For i = Range("A65536").End(xlUp).Row To 2 Step -1
Next
End Sub
Nun habe ich aber das Problem das ich es jedesmal auf ca 120 einzelnen Blättern anwenden muss.
gibt es die Möglichkeit das Makro so umzuschreiben das alle Tabellenblätter geichzeitig vervollständigt werden?
Für eure Hilfe wäre ich sehr dankbar!
LG Chrissie
Antwort 1 von Marie vom 04.12.2019, 02:11 Options
Da, wo jetzt die msgbox steht rufst Du Deinen Code auf.
Gruß Marie
Private Function fktalleBlaetter()
Dim actBook As Workbook
Dim actSheet As Worksheet
Set actBook = ActiveWorkbook
For Each actSheet In actBook.Worksheets
actSheet.Select
MsgBox actSheet.Name
Next
End Function
Gruß Marie
Private Function fktalleBlaetter()
Dim actBook As Workbook
Dim actSheet As Worksheet
Set actBook = ActiveWorkbook
For Each actSheet In actBook.Worksheets
actSheet.Select
MsgBox actSheet.Name
Next
End Function
Antwort 2 von Chrissie07 vom 04.12.2019, 21:15 Options
Hallo Marie,
vielen dank für die schnelle Hilfe... ...aber wie rufe ich meinen code auf? ich bin doch absoltute beginnerin....
LG Chrissie
vielen dank für die schnelle Hilfe... ...aber wie rufe ich meinen code auf? ich bin doch absoltute beginnerin....
LG Chrissie
Ähnliche Themen
Excel: beim öffnen der Arbeitsmappe soll immer die Tabelle mit dem aktuellen Datum erscheinen
rheingeist 19.03.2007 - 107 Hits - 1 Antwort
Datumsreihe vervollständigen
Toni165 18.04.2007 - 73 Hits - 10 Antworten
Textstring mit variablem Inhalt
hanswerner 15.06.2007 - 79 Hits - 6 Antworten
Excel=Kopie von Formeln von einer altem in eine neue Arbeitsmappe
brain10 10.01.2008 - 68 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
