Office: Spaltenbreite ermitteln

Hallo,

wie kann ich in VBA die Spaltenbreite ermitteln?
Ich möchte einen Zeilenumbruch einfügen, wenn die vorgegebene Spaltenbreite überschritten wird.

Vielen Dank für die Hilfe.

Clinty

:)

 

Moin, Clinty,

kein Problem bei Schriftarten wie New Courier:
wwwww
iiiii
Etwas schwieriger bei Proportionalschriften:
wwwww
iiiii

 

Hallo, jinx,

vielen Dank für deine Antwort.
Bei den Courierschriftarten haben alle Zeichen die gleiche Breite. Das weiß ich. Da könnte ich die Anzahl der Zeichen verwenden.
Bei den anderen dachte ich, dass das irgendwie mit der Width Eigenschaft geht. Gibt es auf diese Weise keine Möglichkeit?
Ich wollte mir immer die Width Eigenschaft holen. Wenn ich dann die Breite überschreite, möchte ich einen Zeilenumbruch einfügen. So ähnlich war meine Denke.

Gruß

Clinty

 

Moin, Clinty,

sieh Dir doch einfach einmal Deine formatierten Texte in der Bearbeitungszeile an; dort werden sie in der eingestellten Standardschrift angezeigt. Normalerweise sollten die Inhalte (also der Text) als ebensolcher abgelegt werden, die Ausprägungen werden über Schriftart, - größe, -ausprägung festgelegt. Außerdem gibt es kein Ereignis, was nach einer Änderung der Schriftart die Anpassung auslösen könnte...

 

Hallo, jinx,

vielen Dank für deine Hilfe.
Wie es scheint, geht es nicht so, wie ich dachte.

Gruß

Clinty

 

hi clinty *Smilie

hab ein wenig experimentiert,das kam dabei heraus,vielleicht doch hilfreich *Smilie

gruss poltergeist

Sub Breite()
Range("A1").Select
lager1$ = Range("A1")
For zeichen = 1 To Len(lager1$)
lager2$ = lager2$ + Mid$(lager1$, zeichen, 1)
Range("A1") = lager2$
Cells.EntireColumn.AutoFit

rem spaltenbreite 8 bei ueberschreitung EINEN zeilenvorschub

If Range("A1").ColumnWidth > 8 Then

Range("A1") = lager2$ + Chr$(10) + Mid$(lager1$, zeichen + 1, Len(lager1$))
End
End If
Next zeichen
End Sub

 

Moin, poltergeist,

	A	B
1	wwwwwwww ww	iiiiiiii ii
2	wwwwwwww ww	iiiiiiii ii

[/quote] Excel Tabellen einfach im Web darstellen

 

hi jinx *Smilie

du magst ja recht haben doch nuetzt uns das nichts,weil wir nun immer noch nicht wissen wie von einem einzelnen zeichen die breite ermittelbar ist,daher meine idee die ja auch funktioniert.
die vbhilfe ist wohl eher fuer profis,weil gar nichts zu finden ist,meine suche im internet war auch sehr mager,eine function entdeckt die i und m vergleicht und einen mittelwert der spaltenbreite erzeugt.ich hoffte ja von dir oder anderen usern ein kleines beispiel zu bekommen *biggrinlove

gruss poltergeist *Smilie

 

Moin, poltergeist,

bestimmt nicht; so sollte es doch wohl aussehen (leider nicht nach Deinem Makro):

	A	B
1	wwwwwwww wwwww	wwwwwwww wwwww
2	wwwwwwww wwwww	wwwwwwww wwwww
3	iiiiiiii iiii	iiiiiiii iiii
4	iiiiiiii iiii	iiiiiiii iiii
5	iiiiiiiiiiii
6	iiiiiiiiiiii

[/quote] Excel Tabellen einfach im Web darstellen

 

Hallo poltergeist, hallo jinx,

vielen Dank für eure Mühe.
Ich habe auch ein bisschen getestet, und es sah mit der poltergeistchen Methode gar nicht so schlecht aus. *Smilie
Es kann natürlich sein, dass es doch nicht so klappt, wie ich wünsche und dass ich hier einiges nicht verstanden habe.
Außerdem muss ich noch einiges tun, denn bei einem Wort, das nicht mehr in die Zelle passt, will ich auch einen Zeilenumbruch erzeugen.
Einige Wörter sollen auch fett angezeigt werden.
Das Flackern müsste auch noch verschwinden. Gibt es so etwas wie Visible für eine bestimmte Zelle?
Nur zur Info: Ich erstelle eine Exceldatei in Access.

Nochmals vielen Dank für eure Hilfe und viele Grüße

Clinty

 

Moin, Clinty,

irgendwie schien mir das schon klar zu sein - Silbentrennung unter Ausnutzung des Wörterbuches?

"Flackern" dürfte die Bildschirmaktualisierung sein, die kann man in Excel per Application.ScreenUpdating = False ab-und mit ~ = True anstellen; je nachdem, wie Du die Tabelle aus Access erstellst (warum denke ich jetzt nur an DoCmd.TransferSpreadsheet?), ggf. die Anwendung Excel auf .Visible = False zu lassen.

Meines Wissens lassen sich nur Zeilen oder Spalten ausblenden - einzelne Zellen jedoch nicht.

 

Hi,

mal so'n Gedanke, keine Ahnung ob das hilft: Man könnte doch die fragliche Zelle (Inhalt und Format) in eine ansonsten leere Spalte kopieren und nach AutoFit die Spaltenbreite bestimmen. Dann hätte man die Breite des Zellinhaltes.

Gruß

Johannes

 

Hallo jinx, hallo JFreudens,

vielen Dank für eure Mühe.
Da ich die Spalte aus verschiedenen Selects und Abfragen zusammenstelle,
weiß ich nicht, ob das mit DoCmd.TransferSpreadsheet so einfach zu realisieren ist.

Falls sich beim Entwickeln der Routine noch Fragen ergeben, ist es doch gestattet, sich wieder hier zu melden?

Nochmals vielen Dank und viele Grüße

Clinty