Excel Makro: Array erstellen

Billy · 15.05.2005

Guten Tag

ich wollte fragen wie ich in einem Makro für MS Excel ein array erstellen kann

also dass ich z.B. Apfel, Karotte und Banane in einem array namens frucht speichern kann.

und dann mit frucht(0) kommt Apfel usw...

geht das überhaupt? ich hoffe schon ^^

mfg billy

Matjes · 15.05.2005

Hi billy,

hier kommen Äpfel und Bananen ....

Code:

Sub Beispiel_ArrayString()

  Dim Frucht(0 To 2) As String
  
  Frucht(0) = Apfel
  Frucht(1) = Karotte
  Frucht(2) = Banane
  
  MsgBox ( _
    Das Feld Frucht() enthält folgende Früchte: &amp; vbLf &amp; _
    Frucht(0) &amp; vbLf &amp; _
    Frucht(1) &amp; vbLf &amp; _
    Frucht(2) &amp; vbLf &amp; vbLf &amp; _
    Gruß Matjes :-))

End Sub

Billy · 15.05.2005

Karotten haste nicht so gerne? ;D

danke

was ist jetzt wenn ich aber die anzahl noch nicht weiss wieviele sache da rein kommen in den Warenkorb?

gibst da auch ne lösung oder ist das schlicht unmöglich?

Matjes · 15.05.2005

dann in etwa so:

Code:

Sub Beispiel2_ArrayString()

  Dim Frucht() As String, Frucht_cnt As Long
  Dim s_tmp As String, x As Long
  
 ->erstmal Feld mit einem Eintrag definieren
  ReDim Frucht(1 To 1)
  Frucht_cnt = 0     ->Zaehler 0
  
 ->erste Frucht eintragen
  Frucht_cnt = Frucht_cnt + 1->Zaehler erhoehen
  ReDim Preserve Frucht(1 To Frucht_cnt)
  Frucht(Frucht_cnt) = Apfel
  
 ->zweite Frucht eintragen
  Frucht_cnt = Frucht_cnt + 1->Zaehler erhoehen
  ReDim Preserve Frucht(1 To Frucht_cnt)
  Frucht(Frucht_cnt) = Karotte
  
 ->dritte Frucht eintragen
  Frucht_cnt = Frucht_cnt + 1->Zaehler erhoehen
  ReDim Preserve Frucht(1 To Frucht_cnt)
  Frucht(Frucht_cnt) = Banane
  
 ->nächste Frucht eintragen
  Frucht_cnt = Frucht_cnt + 1->Zaehler erhoehen
  ReDim Preserve Frucht(1 To Frucht_cnt)
  Frucht(Frucht_cnt) = Kirsche
  
  For x = LBound(Frucht()) To UBound(Frucht())
    s_tmp = s_tmp &amp; vbLf &amp; Frucht(x)
  Next x
  
  MsgBox ( _
    Das Feld Frucht() enthält folgende Früchte: &amp; _
    s_tmp &amp; vbLf &amp; vbLf &amp; _
    Gruß Matjes :-))

End Sub

Gruß Matjes

Billy · 15.05.2005

oke...

werd das mal so meinem chef präsentieren

danke matjes =)

Excel Makro: Array erstellen

Billy

Matjes

Billy

Matjes

Billy

Excel Makro: Array erstellen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums