title image


Smiley Re: Pixel in cm / mm?
Hallo,

geht mit folgendem macro in deiner personl.xls,

dieses dann in einer Symbolleiste hinterlegen.



Spalten markieren - dann geht Fenster mit Angabe in cm auf

und es kann auch neue Breite eingegeben werden



Sub Spaltenbreite()

Dim sBreite As Single

Dim sAktuell As Single

Dim strText As String

Dim strAntwort As String

sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425

strText = "Aktuelle Spaltenbreite: " & _

Format(sAktuell, "###0.00 cm") & Chr(13) _

& "Geben Sie die gewünschte Spaltenbreite für die " & _

"aktuelle Spalte oder Markierung in cm ein:"

strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _

Format(sAktuell, "###0.00"))

If strAntwort "" Then

sBreite = CSng(strAntwort)

Selection.ColumnWidth = -0.71 + 5.1425 * sBreite

End If

End Sub

 

Gruß aus Leipzig Andreas

Excel2010



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: