Nach Umstellung auf AddIn funktioniert Code nicht
12.11.2012 09:08:33
Kaios
nach dem ich aus meinem VBA Code ein Addin gemacht habe, funktionert meine "Jedes Sheet auswählen" Schleife nicht mehr.
Beim Punkt wks.select kommt eine Fehlermeldung.
Hat jemand eine Ahnung wieso?!? Führe ich den Code in einem anderen Modul aus läuft er problemlos...
Public Sub Aushang()
Dim wks As Worksheet
Sheets.Add
ActiveSheet.Name = "Aushang"
For Each wks In ThisWorkbook.Worksheets
If wks.Name "Aushang" Then
Range("A1").Value = "Einsatzplan"
wks.Select
End If
Danke schon mal für eure Hilfe!
Grüße Kaios