title image


Smiley Ganz einfach




Sub Michael24()



Const cstrText As String = "Das" & vbCrLf & _

"ist" & vbCrLf & _

"das" & vbCrLf & _

"Haus" & vbCrLf & _

"vom" & vbCrLf & _

"Nikolaus"



Dim arrTmp() As String

Dim strTmp As String



arrTmp = Split(cstrText, vbCrLf)

strTmp = arrTmp(LBound(arrTmp) + 1)

' alternativ:

' strTmp = arrTmp(2)



MsgBox "Anzahl Zeilen: " & UBound(arrTmp) - LBound(arrTmp) + 1 & vbCrLf & vbCrLf & _

"Und in Zeile 2 steht das hier drin: " & strTmp



End Sub







Grundsätzlich kannst Du die Arrayzeile auch direkt per arrTmp(2) auslesen. Dazu musst Du aber die Systemeinstellung kennen, mit der festgelegt wird, ob die Array-Untergrenze standardmäßig auf 0 oder auf 1 eingestellt sein soll (näheres in der Hilfe unter "Option Base-Anweisung").



Wenn man das nicht immer wieder hinterfragen will, errechnet man sich die zweite Zeile per arrTmp(LBound(arrTmp) + 1) - dann ist man unabhängig.



Alles klar?



;o)

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: