Text in zelle teilweise mit formatierung übernehm.

Forumthread: Text in zelle teilweise mit formatierung übernehm.

17.07.2003 11:13:20

andyz

Hallo,
ich möchte aus einer Zelle nur einen Teil aber mit der Formatierung in eine Variable übernehmen.
Also das Beispiel bei mir:
In der Zelle B2 steht fett: generierte Anfragenummer
Ich möchte jetzt "Anfragenummer" übernehmen aber mit der Fett-Formatierung.
Der Aufruf im Code sieht im moment so aus:
Anfragenummer = tabelle3.range("B2") & Tabelle1.textbox1.text
Ich hoffe mir kann jemand helfen.
Vielen dank im vorraus

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text in zelle teilweise mit formatierung übernehm.

17.07.2003 17:46:37

Sigi E.

AW: Text in zelle teilweise mit formatierung übernehm.

17.07.2003 17:46:37

Sigi E.

Hallo Andy,
eine Variable kann nur eine(!) Eigenschaft gleichzeitig aufnehmen. Meistens ist es
der Wert/Value. Weitere Eigenschaften musst du in zusätzliche Variablen speichern.
Hier eine kleine Auswahl ...


Sub ZellFormate()
Dim Zelle As Range
Dim Variable(0 To 25) As Variant
Set Zelle = Range("D4")
Variable(0) = Zelle.Value
Variable(1) = Zelle.Font.Name                   'Times New Roman
Variable(2) = Zelle.Font.Size                   '14
Variable(3) = Zelle.Font.Strikethrough          'False
Variable(4) = Zelle.Font.Superscript            'False
Variable(5) = Zelle.Font.Subscript              'False
Variable(6) = Zelle.Font.OutlineFont            'False
Variable(7) = Zelle.Font.Shadow                 'False
Variable(8) = Zelle.Font.Underline              'xlUnderlineStyleNone
Variable(9) = Zelle.Font.ColorIndex             'xlAutomatic
Variable(10) = Zelle.Font.Bold                  'True
Variable(11) = Zelle.Font.Italic                'True
Variable(12) = Zelle.Font.Underline             'xlUnderlineStyleSingle
Variable(13) = Zelle.Font.ColorIndex            '5
Variable(14) = Zelle.Interior.ColorIndex        '35
Variable(15) = Zelle.Interior.Pattern           'xlSolid
Variable(16) = Zelle.Borders(xlDiagonalDown).LineStyle      'xlNone
Variable(17) = Zelle.Borders(xlDiagonalUp).LineStyle        'xlNone
Variable(18) = Zelle.Borders(xlEdgeLeft).LineStyle          'xlNone
Variable(19) = Zelle.Borders(xlEdgeTop).LineStyle           'xlContinuous
Variable(20) = Zelle.Borders(xlEdgeTop).Weight              'xlThin
Variable(21) = Zelle.Borders(xlEdgeTop).ColorIndex          'xlAutomatic
Variable(22) = Zelle.Borders(xlEdgeBottom).LineStyle        'xlDouble
Variable(23) = Zelle.Borders(xlEdgeBottom).Weight           'xlThick
Variable(24) = Zelle.Borders(xlEdgeBottom).ColorIndex       'xlAutomatic
Variable(25) = Zelle.Borders(xlEdgeRight).LineStyle         'xlNone
End Sub

Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

Text in zelle teilweise mit formatierung übernehm.

Forumthread: Text in zelle teilweise mit formatierung übernehm.

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread