Replace
06.09.2018 10:57:08
Georg
ich möchte eigentlich nichts anderes machen als:
In jedem Arbeitsblatt(variabel) steht von A7:A"rowcount" ein Datum: 01.02.2018 usw.
Jedes Arbeitsblatt repräsentiert einen Monat.
Ich möchte in jedem Arbeitsblatt in diesem Bereich(A7-A"rowcount") 01.02.2018 durch 01.02.2019 usw. ersetzen, leider komm ich nicht ganz klar damit:
Bisher bin soweit gekommen:
DANKE!!!
Sub Jahreswechsel()
Dim Datei2019 As Workbook
Dim BPx As String
Dim strFilter As String
Dim strFileName As String
Dim i As Long
Dim arrName, arrMonat(1 To 12), arrMonatLang(1 To 12)
Dim MaxWs As Long
MaxWs = 12
'DateiÖffnen Dialog
strFilter = "Excel-Dateien(*.xlsx), *.xlsx" '** Dateifilter definieren
ChDrive "Q"
ChDir "Q:\Bereitschaftspraxen\Dienstprotokolle\Unterfranken" '** Laufwerk und Pfad _
definieren, welcher geöffnet werden soll
'** Den im Dialogfeld gewählten Namen auslesen
strFileName = Application.GetOpenFilename(strFilter)
Set Datei2019 = Workbooks.Open(strFileName)
'** Hinweis ausgeben
'MsgBox "Die Datei '" & WbNeuFallzahl.Name & "' wurde geöffnet.", vbInformation, _
"Hinweis"
Datei2019.Activate
Dim x As Long
x = MaxWs - Datei2019.Worksheets.Count
Dim lastRow As Long
lastRow = Range("A" & Tabelle1.Rows.Count - 4).End(xlUp).Row
Dim rg As Range
For i = 1 To x
With Worksheets(x)
Set rg = .Range(.Cells(7, 1), .Cells(lastRow, "A:A"))
End With
Next i
For i = 1 To x
With Datei2019.Worksheets(i)
'AB HIER WEIss ICH NICHT MEHR GANZ WEITER; BRAUCHE ICH rg als Range überhaupt. 'Wie ersetze _
ich einen Teilstring?
x = x + 1
End With
Next i
End Sub