AW: Nochmals Problem bei Text verketten
15.05.2006 11:48:42
Erich
Hallo nochmal,
wenn du nicht zwei Zellen verketten willst, sondern an eine Zelle vorn oder hinten einen Text anhängen willst, ginge das so:
Sub TstVerkett()
VerkettenVor "abc", [a9], [a14]
VerkettenNach [a9], "abc", [a15]
End Sub
Sub VerkettenNach(rgQu As Range, strNach As String, rgErg As Range)
Dim ii%
With rgQu
If .Rows.Count * .Columns.Count <> 1 Then
MsgBox "Kann nur mit einzelnen Quellzellen aufgerufen werden", _
vbCritical, "VerkettenHochTief"
Exit Sub
End If
rgErg = .Value & strNach
For ii = 1 To Len(rgQu)
If .Characters(ii, 1).Font.Subscript Then
rgErg.Characters(Start:=ii, Length:=1).Font.Subscript = True
ElseIf .Characters(ii, 1).Font.Superscript Then
rgErg.Characters(Start:=ii, Length:=1).Font.Superscript = True
End If
Next ii
End With
End Sub
Sub VerkettenVor(strVor As String, rgQu As Range, rgErg As Range)
Dim ii%
With rgQu
If .Rows.Count * .Columns.Count <> 1 Then
MsgBox "Kann nur mit einzelnen Quellzellen aufgerufen werden", _
vbCritical, "VerkettenHochTief"
Exit Sub
End If
rgErg = strVor & .Value
For ii = 1 To Len(rgQu)
If .Characters(ii, 1).Font.Subscript Then
.Characters(Start:=ii + Len(strVor), Length:=1).Font.Subscript = True
ElseIf .Characters(ii, 1).Font.Superscript Then
.Characters(Start:=ii + Len(strVor), Length:=1).Font.Superscript = True
End If
Next ii
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort