title image


Smiley Re: Datenbereich eines Diagramms in eine Variable einlesen


Sub Bereich()



Dim strBereich As String, strMSG As String

Dim arrBereich

Dim intRow As Integer, intCell As Integer, intCount As Integer





For intCell = 1 To 3



For intRow = 3 To 5



strBereich = strBereich & "||" & Cells(intRow, intCell).Value



Next intRow



Next intCell



strBereich = Mid(strBereich, 3, Len(strBereich) - 2)



arrBereich = Split(strBereich, "||")



strMSG = " Folgende EInträge liegen im genannten Bereich:"



For intCount = 0 To UBound(arrBereich)



strMSG = strMSG & vbCrLf & arrBereich(intCount)



Next intCount



MsgBox strMSG, vbOKOnly, "BereichsInfo"



End Sub

mfg Mike

Snafu



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: