AW: "Funktionszeile" editieren
26.08.2009 16:53:33
ing.grohn
Hallo Franz,
schönen Dank für Deine Antwort.
Leider ist mein Problem Damit noch nicht gelöst:
meine Tabelle ist wie folgt eingerichtet:
Spalte A enthält die Menge,
Spalte B die Artikel Nr
In Spalte C ermittlere ich durch eine Funktion den Artikeltext
der Text erstreckt sich über die Spalten C, D,E und F
in Spalte G wird der Artikelpreis ermittelt
Funktioniert prima!
Nur, wenn die Länge des Textes über Spalte F hinausgeht
erhalte ich Probleme.
Eigentlich soll die Funktion die Spalten C - F verbinden und die Zeilenhöhe
entsprechend anpassen.
Funktioniert aber nicht. Hier die Funktion:
Function Texte(test As String) As String
Dim text As String
Dim Vergleich As String
Dim EndeText As String
Dim Wert As Double
Dim Ende As Integer
Dim Laenge As Integer
Dim Position As String
Dim aZeile As String
Dim hoehe As Integer
Position = ActiveCell.Address
aZeile = Right(Position, 2)
Vergleich = test
EndeText = Sheets("Konstanten").Range("G3").Value
Ende = Val(Right(EndeText, 2))
For I = 12 To Ende
Zeile = Right(Str(I), 2)
text = Sheets("Konstanten").Range("F" + Zeile).Value
'MsgBox ("1." + Vergleich + " 2." + Text)
If text = Vergleich Then
text = Sheets("Konstanten").Range("G" + Zeile).Value
Laenge = Len(Sheets("Konstanten").Range("G" + Zeile).Value)
hoehe = Laenge / 50
If Laenge > 50 Then
Sheets("Rechnung").Range("C" + aZeile + ":F" + aZeile).Select
With ActiveCell
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Sheets("Rechnung").Range("c39").Select
ActiveCell.RowHeight = hoehe * 15
End If
Texte = text
Exit Function
End If
Next I
Texte = Sheets("Konstanten").Range("G10").Value
End Function
Eine Antwort wäre nett
MfG
Albrecht