Ausgangslage:
TExt in A1 = "1 Heller (Cu) Joseph II. 1765 - 1790"
Text in A2 = "Brustbild Josef II n. r. "
Ziel:
Text in A1 =
"1 Heller (Cu) Joseph II. 1765 - 1790
Brustbild Josef II n. r."
Habe bei ca. 1000 Zeilen den Text z. B. "A2" an den Text "A1" mit Zeilenumbruch dranzuhängen. Meine Makroaufzeichnung habe ich relativ gemacht und erweitert, aber irgendwo einen simplen VBA-Fehler. Die Zellenanwahl "A2" geschieht per Maus. Eine relative Zellenanwahl ist notwendig,
VBA Code
Danke für einen Tipp
TExt in A1 = "1 Heller (Cu) Joseph II. 1765 - 1790"
Text in A2 = "Brustbild Josef II n. r. "
Ziel:
Text in A1 =
"1 Heller (Cu) Joseph II. 1765 - 1790
Brustbild Josef II n. r."
Habe bei ca. 1000 Zeilen den Text z. B. "A2" an den Text "A1" mit Zeilenumbruch dranzuhängen. Meine Makroaufzeichnung habe ich relativ gemacht und erweitert, aber irgendwo einen simplen VBA-Fehler. Die Zellenanwahl "A2" geschieht per Maus. Eine relative Zellenanwahl ist notwendig,
VBA Code
VB.NET-Quellcode
- x = ActiveCell.Row
- y = ActiveCell.Column
- strWert = Selection
- ActiveCell.Offset(-1, 0).Select
- ' AktiveCell erhält einen Wert von A1, allerdings keine Übergabe an strWert1 = ""
- 'strWert1 = ActiveCell.Offset(-1, 0).Value
- strWertGesamt = strWert1 & Chr(10) & strWert
- Sheets("Tabelle1").Range(ActiveCell).Value = strWertGesamt
- Selection.Clear
- End Sub
Danke für einen Tipp
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Excelwolf“ ()