microsoft.public.de.excel: Re: Zahl als Strichliste in Zelle ausgeben - The Diigo Meta page

• 21 Sep 08
  

  Nils Schulte

  • [...] 
     >>|||||||||||||||||||||||| 
     >>  
     >> Benötige aber Ausgabe dieser Art: ||||| ||||| |||||  
     ||||| |||| 
     > 
     >Dann könntest Du eine benutzerdefinierte Funktion  
     verwenden, welche die 
     >Zahl als Striche ausgibt: 
     > 
     >Public Function Striche(Zahl As Double) As String 
     >Dim intI As Integer 
     >For intI = 1 To Int(Zahl / 5) 
     > Striche = Striche & "IIIII " 
     >Next intI 
     >If Zahl Mod 5 Then 
     > For intI = 1 To Zahl Mod 5 
     > Striche = Striche & "I" 
     > Next intI 
     >End If 
     >End Function 
     

    Hi Thomas 
     Das geht auch ganz ohne VBA :-)) 
     

    =WECHSELN(WIEDERHOLEN("|";A1);"|||||";"||||| ") 
     

    Frank 

Would you like to comment?

Join Diigo for a free account, or sign in if you are already a member.