Supportnet / Forum / Tabellenkalkulation

Spalenbreite in mm excel 97

Hi Manfred,

hab Dir ein Add-In gemailt.

CU Aliba

Ich hab gar nicht erkannt, daß das Posting von Manfred-wer-auch-immer eine FRAGE war. Wie hat das Aliba bloß rausgekriegt?

Für mich waren es einfach ein paar unhöflich hingeworfene Brocken. Ansonsten hätte ich natürlich auch auf eine Lösung z.B. in Herbers Forum verweisen können:
http://xlarchiv.herber.de/68to72/t70334.htm

PS: Damit auch andere Interessierte was davon haben (und nicht nur ein anonymer Empfänger eines freundlich zur Verfügung gestellten Excel-Add-Ins).

Massaraksch!

Hi Massaraksch,

da hast Du natürlich recht. Also hier der Downloadlink für das Add-in.

http://users.quick-line.ch/ramel/Files/Spalte-Zeile_in_cm.XLA

CU Aliba

Ihr seid zu nett ;)

Cool ;-)

Massaraksch!

hi alle :)

herber.de :( ,makros gegen bares :(,wissen sollte frei bleiben :)

gruss nighty

hi alle :)

in diesem sinne,auch von mir herzlichsten dank an alle helferlein im sn :)

gruss nighty

Hallo an alle,

hier ein Makro das das auch macht das habe ich auch mal von jemandem bekommen.

Sub Format_Spalten_ZeilenMM()
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 = "Aktuelle Spaltenbreite in mm: " & _
Format(sAktuell, "###0.00 mm") & Chr(13) _
& "Gib die gewünschte Spaltenbreite für die " & _
"aktuelle Markierung in mm ein:"
strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sBreite = Val(strAntwort)
'sBreite = CSng(strAntwort)
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite / 10
End If


'****************************
ZAktuell = Selection.RowHeight
Faktor = 2.999999
ZAktuell = ZAktuell / Faktor '(Selection.RowHeight)
strText = "Aktuelle Zeilenhöhe in mm: " & _
Format(ZAktuell, "###0.00 mm") & Chr(13) _
& "Gib die gewünschte Zeilenhöhe für die " & _
"aktuelle Markierung in mm ein:"
strAntwort = InputBox(strText, "Neue Zeilenhöhe festlegen", _
Format(ZAktuell, "###0.00"))
If strAntwort <> "" Then
ZHöhe = CSng(strAntwort)
Selection.RowHeight = Faktor * ZHöhe
End If
Range("A1").Select
Exit Sub
Fehler:
Range("A1").Select
End Sub

Gruß Michael

an alle, die mit antwort 2 und 3 glücklich geworden sind:

den link in antwort 4 habe angeklickt. jetzt sehe ich auch in excel bei addin dieses addin, da habe ich auch einen haken reingesetzt, aber wie wende ich das jetzt an? bzw. wie funktioniert das jetzt? irgendwas mache ich wieder verkehrt!

bitte helft mir doch bei so einer genialen sache!

danke und schönen feierabend
kromgi

sorry. den link in antwort 3 meine ich natürlich.

guten morgen an alle, habe nach endlos vielen versuchen folgendes problem:

in excel kann ich zwar die symbolleiste "Zeile-Spalte" aufrufen, aber bei klick auf eines dieser sybole kommt die fehlermeldung, dass das makro nicht gefunden werden kann.

was mache ich bloß falsch??

vielen dank für eure unterstützung
kromgi!

Hi Kromgi,

wenn Du Symbolleiste aufgerufen hast und eine der beiden Schaltflächen betätigst, kommt eine Abfrage ob Makors akzeptiert werden sollen oder nicht. Da musst Du auf Makro aktivieren klicken, da sonst das ganze nicht funktioniert.

Ich hoffe, ich konnte Dir helfen.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

habe ich gemacht und genau danach erscheint die fehlermeldung. irgendwie nicht richtig nachvollziebar!

Hi Kromgi,

hast Du eventuell die Datei "Spalte-Zeile_in_cm.XLA" verschoben oder gar gelöscht? Dann kann es zu einer Fehlermeldung kommen. Gehe mal in der Symbolleiste auf Anpassen und dann in die Registerkarte Symbolleisten. Suche den Eintrag Spalte-Zeile und markiere ihn. Danach klicke auf die Schaltfläche Löschen und schließe das Fenster. Danach öffne die Datei Spalte-Zeile_in_cm.XLA noch mal neu. Dann sollte es hoffentlich gehen.

Ich offe, dass es funktioniert. Wenn nicht, mache noch mal Meldung.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

es mhat sich leider nichts geändert. nur, was mir jetzt auffällt, die fehlermeldung sagt, das sie die datei: Pfadangabe\Spalte-Zeile_in_cm[1].XLA´!Spaltenbreite´ nicht finden.
hat dieses Spaltenbreite oder das [1] was besonderes zu bedeuten?

Die datei heißt übrigens wirklich Spalte-Zeile_in_cm[1].XLA. soll das so sein?

danke schon jetzt
kromgi

Hi,

lösche mal die Klammern und die 1. Wenn ich die Datei so benenne, wie Du es hier geschrieben hast, kommt diese Fehlermledung. Die Datei heist aber in Wirklichkeit Spalte-Zeile_in_cm.XLA. Wenn DU die Datei so umbenannt hast, sollte es gehen.

Wenn nicht, Du weißst ja, melde Dich.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

die fehlermeldung sagt schon:...Pfadangabe\Spalte-Zeile_in_cm[1].XLA´!Spaltenbreite nicht gefunden.
umbenannt hatte ich die datei auch schon, aber keinen erfolg damit.

Hi kromgi,

also tut mir leid. Ich habe mir das AddIn unter obiger Adresse zum Testen heruntergeladen, das AddIn geöffnet und bei mir funktioniert es. Ich bin nunmehr erst mal mit meinem Latain, was die Hilfe angeht, am Ende. Sorry, da muss wohl jemand anderes Dir helfen.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• Explorer Spaltenanpassung
• Gleiche Spaltenbreite auf allen Arbeitsblättern
• Makro: Spaltenbreite und Zeilenhöhe bei bestimmten Kriterien auf 0 setzen
• gleiche spaltenbreite bei excel