Makro auf andere Zelle übernehmen
29.10.2014 09:41:07
Noemi
In Tabelle 1 habe ich eine Liste mit Daten. In Tabelle 2 werden diese Angezeigt.
Tabelle 1: In den Zellen gibt es mehrere Zeilen, die ich mit einem Makro so gemacht habe das die 1 Zeile fett ist, die restlichen nicht. Nun wir dies jedoch in Tabelle 2 nicht so angezeigt.
Tabelle 1 A1 zb:
1. Was bedeutet der Begriff primipar? 2x
a. Erstgebährend
b. Es wird nur ein Welpe geboren
c. Der Begriff bezeichnet den erstgeborenen Welpen.
d. Die Hündin hat noch nie geworfen, dieser Wurf ist ihr erster.
Makro:
Sub ersteZeileFett()
Dim zeLLe As Range
Dim umbrPos As Long
For Each zeLLe In Selection
umbrPos = InStr(zeLLe, vbLf)
If umbrPos 0 Then
zeLLe.Characters(1, umbrPos).Font.Bold = True
End If
Next
End Sub
Tabelle 2 A1: =Tabelle1!A1
Ich hoffe ihr könnt mir helfen :-) Nun sollte in Tabelle 2 der gleiche Text stehen mit 1 Zeile fett.
Grüsse
Noemi