Microsoft Excel

Herbers Excel/VBA-Archiv

Syntaxfrage zu Array | Herbers Excel-Forum


Betrifft: Syntaxfrage zu Array von: Jörg-HH
Geschrieben am: 24.07.2012 12:24:31

Hallo zusammen

warum krieg ich hier ne Fehlermeldung?

https://www.herber.de/bbs/user/81145.xls

Grüße - Jörg

  

Betrifft: Wo ist ws geblieben? Gruß owT von: Luc:-?
Geschrieben am: 24.07.2012 13:03:27

:-?


  

Betrifft: AW: Wo ist ws geblieben? Gruß owT von: Jörg-HH
Geschrieben am: 24.07.2012 13:13:42

ja, Luc - das hatte ich auch noch vergessen... :-)

aber ich krieg hier
mimi = ThisWorkbook.Worksheets(Array("Tabelle1", "Tabelle2", "Tabelle3"))
erzählt "falsche Anz Argum od ungült Zuwsg einer Eigschft

:-((


  

Betrifft: Glaube, Array kannste weglassen - nur aufzählen! von: Luc:-?
Geschrieben am: 24.07.2012 13:19:22

Gruß Luc :-?


  

Betrifft: ok - danke! oT von: Jörg-HH
Geschrieben am: 24.07.2012 13:21:44




  

Betrifft: nee- geht doch nicht... von: Jörg-HH
Geschrieben am: 24.07.2012 13:24:56

mimi = ThisWorkbook.Worksheets("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")

ergibt gleiche Fehlermeldung

:-((


  

Betrifft: AW: nee- geht doch nicht... von: Nepumuk
Geschrieben am: 24.07.2012 13:48:02

Hallo,

so vielleicht?

Sub test()
    Dim mimi As Sheets
    Dim ws As Worksheet
    Set mimi = ThisWorkbook.Worksheets(Array("Tabelle1", "Tabelle2", "Tabelle3"))
    For Each ws In mimi
        ws.Range("a1").Value = "meier"
    Next
End Sub

Gruß
Nepumuk


  

Betrifft: ok - so gehts... danke! ot von: Jörg-HH
Geschrieben am: 24.07.2012 15:37:54