Einfügen von Text in verbundene Zellen (Excel 2000)
Wolfgang Oechsner
habe folgendes Problem. In einer Excel Datei (Excel 2000) sind die
Zellen A1, A2 und A3 verbunden zur Zelle A1, die Zellen A4, A5 und A6
verbunden zur Zelle A4, die Zellen A7, A8 und A9 verbunden zur Zelle
A7, die Zellen A10, A11 und A12 verbunden zur Zelle A10 usw. Weiterhin
habe ich ein Word Dokument, in dem sich Namen befinden zBsp.
Meier, Karl
Müller, Otto
Wilhelm, Eva
May,Willi
usw.
Ich möchte nun auf einen Rutsch erreichen, dass Meier, Karl in der
verbundene Zelle A1 steht, Müller, Otto in der verbundene Zelle A4
steht, Wilhelm, Eva in der verbundene Zelle A7 steht, May, Willi in
der verbundene Zelle A10 steht usw..
Der Versuch die Daten in WORD zu kopieren und in Excel einzufügen
scheitert.
Wäre sehr dankbar für eine Hilfe.
Gruß
Wolfgang
Melanie Breden
"Wolfgang Oechsner" schrieb;
dazu fällt mir nur eine Lösung mit VBA ein.
Füge folgendes Makro im VBA Editor in ein allgemeines Modul ein und starte
es über Extras/Makro/Makros oder weise das Makro einem Button zu.
Kopiere die Daten in Word, wechsel nach Excel und starte das Makro:
Sub EinfügenInVerbundeneZellen()
Dim letzteZeile As Long
Dim i%, j%
Application.ScreenUpdating = False
Columns("A:A").Insert Shift:=xlToRight
[A1].Select: ActiveSheet.Paste
letzteZeile = Range("A65536").End(xlUp).Row
j = 1
For i = 1 To letzteZeile
Cells(j, 2) = Cells(i, 1)
j = j + 3
Next
Columns("A:A").Delete
[A1].Select
Application.ScreenUpdating = True
End Sub
Hoffe dass dir das weiterhilft. Wenn du weitere Fragen dazu hast, melde dich
hier noch mal.
mit Gruß
Melanie
XL2000
Jean Ruch
Wolfgang Oechsner <w.oec...@t-online.de> schrieb in im Newsbeitrag:
b809ffbd.02091...@posting.google.com...
Hallo Wolgang,
Anbei ein Makro das Du laufen lassen kannst, wenn Du Deine Liste in
Spalte B:B ab B1 aus Word reinkopierst:
Die Spalte wird durch das Makro wieder gelöscht, so daß du vorab eine
Spalte einfügen müßtest wenn schon andere Daten in deinem XL-Blatt
stehen sollten.
Ich habe die Liste auf 101 Einträge beschränkt. Sollten es mehr sein,
mußt Du die obere Limit von i ( 76800 ) erhöhen.
Dim n As Double
Dim i As Double
n = 0
For i = 0 To 76800 Step 768 ' für eine Liste von 101 Elemente
Range(Cells(1 + i), Cells(513 + i)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
End With
Selection.Formula = Cells(1 + n, 2).Formula
n = n + 1
Next
Range("B:B").EntireColumn.Delete
Range("A1").Select
'
End Sub
Gruß
Jean