Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text in zelle teilweise mit formatierung übernehm.

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
Anzeige
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

Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige