![]() |
|
|
zurück zur ÜbersichtDiskussionsgruppe: Tabellenkalkulationhallo Excelexperten
Von: Blacky2 Datum: 14.05.2007, 20:45
alle Antworten zu dieser FrageAntwort 1 von Hajo_Zi vom 14.05.2007, 20:51 Hallo Herbert, Spaltenbreite in mm? Ob das klappt ist ungewiss Sub SpaltenbreiteInCm() Dim sBreite As Single Dims Aktuell As Single Dim strText As String Dim strAntwort As String sAktuell=(Selection.ColumnWidth+0.71)/5.1425 strText="AktuelleSpaltenbreite:"&_ Format(sAktuell,"##0.00cm")&Chr(13)_ &"GebenSiediegewünschteSpaltenbreitefürdie"&_ "aktuelleSpalteoderMarkierungincmein" strAntwort=InputBox(strText,"Neue Spalten breite festlegen",_ Format(sAktuell,"##0.00")) If strAntwort<>""Then sBreite=CSng(strAntwort) Selection.ColumnWidth=-0.71+5.1425sBreite End If End Sub Von Stephan7 Oder Link zur Seite Gruß Hajo Antworten der Gruppe: Tabellenkalkulation
|
|