Kein Text angegeben
Office - Word, Excel und Co. 9.754 Themen, 41.624 Beiträge
fussel ovo „Excel-2000 Pixel in "cm" umwandeln für Zeilen u, Spaltenbrei“
Hi,
Hier ein Makro - dafür nur einen Button zuordnen:
Sub ZeilenSpaltenCm()
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Möchten Sie Zeilen und Spalten in [cm] ?" ' Meldung definieren.
Stil = vbYesNo + vbQuestion + vbDefaultButton1 'Schaltflächen
' definieren.
Titel = "Spalten und Zeilen in cm" ' Titel definieren.
Antwort = MsgBox(Mldg, Stil, Titel) ' Meldung anzeigen.
If Antwort = vbYes Then ' Benutzer hat "Ja"
' gewählt.
Text1 = "Ja" ' Operation ausführen.
'aktuelle Zeilenhöhe ermitteln
aktuell = Selection.RowHeight / 29.5
'Text zur Ausgabe vorbereiten
text = "Aktuelle Zeilenhöhe: " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die aktuelle Zeile oder Markierung in cm ein:"
'InputBox anzeigen
Antwort = InputBox(text, "Neue Zeilenhöhe festlegen", Format(aktuell, "###0.00"))
'antwort auswerten und neue Zeilenhöhe setzen
If Antwort "" Then
hoehe = CSng(Antwort)
Selection.RowHeight = hoehe * 29.5
End If
Else ' Benutzer hat "Nein"
' gewählt.
Text1 = "Nein" ' Operation ausführen.
'aktuelle Splatenbreite ermitteln
aktuell = (Selection.ColumnWidth + 0.71) / 5.1425
'Text zur Ausgabe vorbereiten
text = "Aktuelle Spaltenbreite: " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Spaltenbreite für die aktuelle Spalte oder Markierung in cm ein:"
'InputBox anzeigen
Antwort = InputBox(text, "Neue Spaltenbreite festlegen", Format(aktuell, "###0.00"))
'antwort auswerten und neue Spaltenbreite setzen
If Antwort "" Then
breite = CSng(Antwort)
Selection.ColumnWidth = -0.71 + 5.1425 * breite
End If
End If
End Sub
