AW: Excel VBA und countif
23.02.2019 19:14:08
Werner
Hallo Norbert,
also ehrlich gesagt ist es nicht besonders sinnvoll eine Mappe mit zwei leeren Blättern hier hoch zu laden.
Aus deinem Code werde ich leider nicht schlau, ist ein ziemliches Durcheinander.
Gehen wir mal schrittweise an die Sache ran:
Gehe ich richtig in der Annahme, dass du aus der Mappe heraus, in der sich das Makro befindet, eine neue Arbeitsmappe mit zwölf Tabellenblättern erstellen willst. Die zwölf Blätter der neuen Mappe sollen dann nach zweistellig nach den Monaten benannt werden?
Dann so:
Option Explicit
Public strYYYY As String
Public strDaten(9) As String
Sub Test()
Dim wkbMappe As Workbook, wksBlatt As Worksheet
Dim rngBereich As Range, rngZelle As Range
Dim intI As Long, intAnz As Long
Dim strPfadName As String, strMappeName As String
Dim strQ As String, strQQ As String
strDaten(1) = "testName"
strDaten(2) = ""
strDaten(3) = ""
strDaten(4) = ""
strDaten(5) = ""
strDaten(6) = ""
strDaten(7) = "testOrt"
strDaten(8) = "testFunktion1"
strDaten(9) = "testFunktion2"
strPfadName = "J:\Norbert\Desktop\Excel-Programmierung\Test"
strYYYY = "2020"
strMappeName = strDaten(7) & "testDatei" & strYYYY & ".xlsx"
Application.ScreenUpdating = False
intAnz = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Set wkbMappe = Workbooks.Add
strQ = ThisWorkbook.Name
For intI = 1 To 12
With wkbMappe.Worksheets(intI)
Worksheets(intI).Name = Format(intI, "00")
End With
Next intI
End Sub
Nicht wundern, die Mappe wird nur neu angelegt und nicht gespeichert, das hab ich vorläufig mal raus gemacht.
Wenn wir so weit dann einer Meinung sind, dann beschreib doch mal bitte was weiter passieren soll.
Gruß Werner