Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro läuft nicht auf VISTA-Excel 2007

Makro läuft nicht auf VISTA-Excel 2007
31.03.2008 19:43:00
P.Ro
Hallo,
ich habe folgendes Makro in Verwendung (nicht selbst erstellt).
Bei mir unter XP läuft alles prima. Unter VSTA mit Excel 2007 kommt beim Start des Makros eine Fehlermeldung.
Kann mir jemand sagen woran das liegt?
Danke
Paul
----------------------
'Zeigt Spaltenbreite und Zeilehhöhe in cm an
'Die gewünschte Spaltenbreite und Zeilenhöhe kann über
'Inputbox eingegeben werden. Alle markierten Spalten werden geändert.
'L. Meister 6.1.02

Sub Format_Spalten_ZeilenCM()
Dim sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
Dim ZHöhe As Single
Dim ZAktuell As Single
On Error GoTo Fehler
Spalte = Selection.ColumnWidth
sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425 * 10
'strText = "Faktor Modulbreite: " & _
'Format(sAktuell, "###0.00") & Chr(13) _
'& "Gib den Wert aus der Zelle BREITE ein" & _
'strAntwort = ActiveSheet.Range("b5").Value
'strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
Format(sAktuell, "###0.00"))
'If strAntwort  "" Then
'sBreite = Val(strAntwort)
'sBreite = CSng(strAntwort)
sBreite = [b5]
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite / 10
'End If
ZAktuell = Selection.RowHeight
Faktor = 2.99999
ZAktuell = ZAktuell / Faktor '(Selection.RowHeight)
'strText = "Faktor Modulhöhe: " & _
Format(ZAktuell, "###0.00") & Chr(13) _
'& "Gib den Wert aus der Zelle HÖHE ein" & _
'strAntwort = ActiveSheet.Range("b7).Value
'strAntwort = InputBox(strText, "Neue Zeilenhöhe festlegen", _
Format(ZAktuell, "###0.00"))
'If strAntwort  "" Then
'ZHöhe = CSng(strAntwort)
ZHöhe = [b7]
Selection.RowHeight = Faktor * ZHöhe
'End If
Range("A1").Select
Exit Sub
Fehler:
Range("i8").Select
End Sub


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro läuft nicht auf VISTA-Excel 2007
31.03.2008 20:39:00
Jens
Hi,
"...beim Start des Makros eine Fehlermeldung. .."
Wie lautet diese?
mfg Jens

AW: Makro läuft nicht auf VISTA-Excel 2007
31.03.2008 22:01:00
P.Ro
"Fehler beim kompeilieren
Programm oder Bibliothek nicht gefunden."
Paul

AW: Makro läuft nicht auf VISTA-Excel 2007
01.04.2008 04:18:00
mumpel
Hallo!
Dann schau im VBA-Editor in der entprechenden Datei in Extras->Verweisecolor> nach. Steht da bei einer Steuerdatei nicht gefundencolor>, musst Du die Steuerdatei nachinstallieren.
Gruß, Mumpel

AW: Makro läuft nicht auf VISTA-Excel 2007
03.04.2008 11:55:34
P.Ro
Sorry für späte Reaktion,
wie kann ich denn eine Steuerdatei nachinstallieren?
Wo finde ich diese Steuerdatei?
Gruß
Paul
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige