Komisch ich habe es nur mal eben in VBA geschrieben und da
geht es .
Sub test()
Dim a As Integer
For a = 1 To 3
With Worksheets("Tabelle" & a)
.Range("a1").Value = 1
End With
Next a
End Sub
Er schreibt dir alles schön in jede tabelle rein..
Das hier benutze in in NET um Tabanzusprechen:
Dim boundv As Integer
Dim wksv() As String = {"xx", "xy", "xz"}
For boundv = LBound(wksv) To UBound(wksv)
xl.Sheets(wksv(boundv)).visible = True
xl.Sheets(wksv(boundv)).delete()
Next boundv
Vielleicht ist das was für dich ??
Ich bin ein Newbie . Aber jeder hat mal angefangen. Gruß & Dank Thomas
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
