http://www.img-hosting.de/show.htm?bild=10047tabelle…
Bei dieser tabelle möchte ich die Spaltenhöhe den
Prozentzahlen anpassen. (also Anlagevermögen zu Umlaufvermögen
und Eigenkapital zu Fremdkapital)
also die Spaltenhöhe beider Zeilen insgesamt soll so bleiben,
nur untereinander den Prozentzahlen angepasst werden, es muss
nicht genau sein ! nur so ungefähr das man bei einem vorher
nachher Vergleich den Unterschied sehen kann.
Hi Oliver,
okay, wenn du es nicht genau willst, dann ändere ich die Zahlen ab so daß es ungenau wird 
Es geht schon genau, also Zeilenhöhe kann ich schon ganz genau eingeben, allerdings kann Word nur bestimmte Sprünge in der Höhe nachzeichnen.
Ich kann sagen ich hätte gern die Spaltenhöhe auf genau 34,56789 (lassen wir ma die Maßeinheit weg), so schluckt das Word problemlos und macht daraus dann 34,25. Erhöhe ich meinen Wert geringfügig, so macht Word daraus 34,75.
Je nach Wert ist Word in dem Beispiel dann bis zu 0,5 Einheiten ungenau.
Da diese 0,5 fest bleiben ist Word umso genauer umso höher der Wert ist.
Ein Problem bei deiner Anfrage besteht, Zeilenhöhe in einer Zelle gilt für die ganze Zeile, also wennn Anlagevermögen und Eigenkapital in einer Zeile stehen, so kann man nicht dem einen eine Zeilenhöhe von 20 geben, dem anderen eine von 30.
Abhilfe ist, man trickst rum mit verbunden Zellen, da kam ich noch zu nichts Brauchbarem.
Und diese Methode läßt sich auch nur schwieriger pflegen wenn mal Zeilen/Spalten dazukommen usw.
Besser wäre es mit mehreren Einzeltabellen zu arbeiten, die nachher so wirken als wäre es eine einzige Tabelle.
Hier ist mal ein Beispiel (Code steht nachstehend):
http://www.badongo.com/file/9106126
Klicke halt paar mal auf den CommandButton…
Jetzt müßtest du nur die Tabellen 2 und 3 so nebeneinanderrücken, daß sie wie eine Tabelle wirken und Tabelle 1 obendrauf setzen.
Dann wirkt die Bilanz wie frisch frisiert *grien*
Gruß
Reinhard
Fürs Archiv, Dokument hat einen CB mit folgendem Code:
Option Explicit
'
Private Sub CommandButton1\_Click()
Dim a, b
Application.ScreenUpdating = False
While a 70
a = Int(Rnd() \* 100) + 1
Wend
Randomize
While b 70
b = Int(Rnd() \* 100) + 1
Wend
With ThisDocument.Tables(2)
.Cell(1, 2).Range.Text = a
.Rows(1).SetHeight RowHeight:=0.5 \* a, HeightRule:=wdRowHeightExactly
.Rows(2).SetHeight RowHeight:=0.5 \* (100 - a), HeightRule:=wdRowHeightExactly
.Cell(2, 2).Range.Text = 100 - a
End With
With ThisDocument.Tables(3)
.Cell(1, 2).Range.Text = b
.Cell(2, 2).Range.Text = 100 - b
.Rows(1).SetHeight RowHeight:=0.5 \* b, HeightRule:=wdRowHeightExactly
.Rows(2).SetHeight RowHeight:=0.5 \* (100 - b), HeightRule:=wdRowHeightExactly
End With
Application.ScreenUpdating = True
End Sub