title image


Smiley zweidimensionaler Array?
Hi,

würde gerne das Format mehrerer Spalten (Spalte "H","I","J") in mehreren Tabellenblättern (Tabelle "1","2","3") mittels eines Makro ändern. Leider klappt dies nicht ganz mit den verschiedenen Spalten im Format-Code (für eine Spalte alleine funktoniet dies)!!!



Folgenden Ansatz habe ich gewählt:





Für mehrere Spalten:



For j = 1 To 3

For k = 0 To 3

Sheets(Blatt(j)).Activate

ActiveSheet.Columns("h" + k).Select

Selection.TextToColumns Destination:=Range("h" + k & "1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, Tab:=True, _

FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Next k

Next j



Für eine Spalte(funktioniert):





For j = 1 To 3

For k = 1 To 3

Sheets(Blatt(j)).Activate

ActiveSheet.Columns("h").Select

Selection.TextToColumns Destination:=Range("h1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, Tab:=True, _

FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Next k

Next j



Wäre nett, wenn mir jemand einen Tipp geben könnte!

Danke!

Gruß

C.c.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: