Hej Henrik
Tack för hjälpen. Jag har kommit en bit på vägen.
Det jag håller på med är en ganska lång kod med flera loopar. Tanken är att när en viss avdelning skapas i koden så skall också ett blad skapas för denna avdelning. När jag sedan loopar vidare skapas poster som tillhör samma avdelning men en annan enhet. Dessa enheter skall samlas på samma avdelningsblad.
När koden kör vidare så skapas en ny avdelning(och loopar därefter denna avdelning:s enheter). Då skall ett nytt blad skapas och alla uppgifter samlas i detta blad. OSV i upp till 9 nya blad.
Att jag behöver veta om bladet redan är skapat beror på att koden kör samma loop vare sig det är en avdelning eller en enhet. Bladet skall skapas när avdelningen skapas.
Nu till problemet. Din kod fungerar bra när första avdelning en skapas och även dess enheter. Men sedan, när en ny avdelning skapas så missar koden att det är nytt och bladet skapas inte. Jag har kört koden för hand och kollat variabeln strSheetName och den byter verkligen och är rätt. Ändå missas att ett nytt blad skall skapas.
Jag klistar in min redigering av din kod nedan. Något mer tips hur jag får detta stabilt.
Dim wsActive As Worksheet, ws As Worksheet, wsInput As Worksheet
Dim strSheetName As String
Dim blnSheetExist
'få in bladnamn - ersätter du med variabel på annat sätt
strSheetName = "TG-mall " & Nivå3b
'Set wsActive = ActiveSheet
'kolla om blad finns
For Each ws In ThisWorkbook.Worksheets
If ws.Name = strSheetName Then
Set wsInput = ws
blnSheetExist = True
End If
Next ws
'skapa blad
If Not blnSheetExist Then
'Här följer min kod som kopierar en befintlig mall och klistrar in som nytt blad på bestämd plats.
mvh
Svenne