Format
27.01.2005 17:04:21
Peter Knierim
durch Umstellung auf XP und neue Excelversion 10 funktionieren meine Makros nicht mehr
Das untenstehende Makro bleibt bei in der Zeile 7 bei Format stehen und Fehlermeldung erscheint:
Fehler beim Kompilieren
Projekt oder Bibliothek nicht gefunden
Was fehlt mir dort? Kann mir jemand helfen
Gruß Peter
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