msgbox mit mehrfacher info

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: msgbox mit mehrfacher info

von kannenklaus » Sa, 27.01.2007 14:56

hallo stephan,

genau richtig; war ein super tipp :wink:

danke!

klaus

von Stephan » Sa, 27.01.2007 12:03

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

msgbox mit mehrfacher info

von kannenklaus » Sa, 27.01.2007 11:18

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

Nach oben