msgbox mit mehrfacher info

[kannenklaus]

hallo zusammen,

mit unten stehenden code ermittele ich die anzahl der datenpiloten auf dem aktuellen blatt. nun möchte ich, dass nicht wie bisher die msgbox für jeden einzelnen datenpiloten gestartert wird, sondern, dass eine msgbox alle datenpilot anzeigt. dafür muss sie aus der for/next-schleife raus.

hat jemand eine idee?

Code: Alles auswählen

Sub DPilotAktualisieren
	Dim oDoc as Object, aktBlatt as Object
	Dim alleBlaetter as Object
	Dim AnzalleBlaetter as Integer
	Dim AnzDPaktBlatt as Integer 'Anzahl der DPs im aktuellen Blatt
	Dim DPaktBlaetter as Object 'alle DPs des aktuellen Blattes
	Dim DPaktBlatt as Object 'ein DP des aktuellen Blattes
'	Dim DPalle as Object 'in allen Blättern vorkommende DPs
	oDoc =ThisComponent
	aktBlatt=oDoc.CurrentController.getActiveSheet
	alleBlaetter = oDoc.sheets
	AnzalleBlaetter =alleBlaetter.count
	DPaktBlaetter=aktBlatt.getDataPilotTables()
	AnzDPaktBlatt=DPaktBlaetter.count
	for i = 0 to AnzDPaktBlatt-1
		DPaktBlatt=DPaktBlaetter.getByIndex(i)
	'	xray DPaktBlatt
	'	DPaktBlatt.refresh()
		msgbox(DPaktBlatt.name)
	next
	
End Sub

freue mich auf eure antwort.

grüße
klaus

[Stephan]

Wenn ich die Frage richtig verstehe, dann so:

Code: Alles auswählen

'...
for i = 0 to AnzDPaktBlatt-1 
      DPaktBlatt=DPaktBlaetter.getByIndex(i) 
   '   xray DPaktBlatt 
   '   DPaktBlatt.refresh() 
    x = x & DPaktBlatt.name & CHR(13)
next 
msgbox x
'...

Gruß
Stephan

[kannenklaus]

hallo stephan,

genau richtig; war ein super tipp

danke!

klaus