Supportnet / Forum / Tabellenkalkulation

Hallo, beim versuch ein Zelleninhalt per MAkro in eine andere Zelle einzufügen ist dieses Problem aufggetreten, es hängt damit zusammen das ich es auch einer zusammenhängenden zelle nehme und in eine andere zusammen häöngende zelle einfüe, dummerweise sind sie unzerschedlich groß... ich kann aber ich kann die größe der zelle auch nicht mehr ändern, da die ganze seite darauf aufbaur... Weiß da jemand weiter? danke schonmal! mfg janek

Hallo Janek,

kopiere nicht die Zelle, sondern nur den Inhalt der Zelle und fügen den in die verbundene Zelle ein. Beachte dabei, dass sich der Inhalt immer in der ersten Zelle auf der linken Seite der verbundenen Zellen befindet. Beispiel: Du hast die Zellen A1 bis C1 verbunden. Dann steht der Text in Zelle A1. Dass gleiche gilt beim Einfügen. Also Du willst in die verbundenen Zelle A1:C1 einen Text einfügen, dann muss der Text in Zelle A1 eingefügt werden.

Wenn Du wirklich die gesamte Zelle kopieren möchtest, wird das nicht funktionieren, da VBA und verbundene Zellen sich Spinnefeind sind.

Für weitere Lösungsvarianten fehlen eine Menge Infos.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

so sieht es zur zeit aus...
vllt könnt ihr was damit anfangen...


Range("TReQ").Select
Dim sTxt As String
sTxt = InputBox("Verzeichnisname (Bitte genauen Pfad angeben):")
If sTxt = " " Then Exit Sub

Workbooks.Open Filename:=sTxt

Range("TReQNo").Select
Selection.Copy
Windows("06_08_17_BraDryAsp_TR-2006-276B_HRS_K105_205-55R16W").Activate
Range("TReQ").Select
ActiveSheet.Paste

gruß janek

achso, ich habe meine zellen mit einem namen versehn damit es übersichtlicher habe...

("TReQ")

Hallo Janek,

mal ungetestet, da ich keine Lust habe, mir Deine Datei nachzubauen. Tausche Deinen Code gegen den anchfolgenden Code aus.

Range("TReQ").Select
Dim sTxt As String, Wert As Variant
sTxt = InputBox("Verzeichnisname (Bitte genauen Pfad angeben):")
If sTxt = " " Then Exit Sub

Workbooks.Open Filename:=sTxt

Wert = Range("TReQNo")
Windows("06_08_17_BraDryAsp_TR-2006-276B_HRS_K105_205-55R16W").Activate
Range("TReQ") = Wert

Ich hoffe, es funktioniert, müsste eigentlich. Wenn nicht melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke jetzt funkioniert es!
Wenn du mir jetzt noch sagen könntest, wie ich das machen könnt wenn ich in die gleiche zelle (zu einfügen) noch ein 2. Wert einfügen kann wär das sehr hilfreich!

mfg
janek

Hi Janek,

Deine Frage ist zu ungenau. Woher stammt der Wert, der ebenfalls eingefügt werden soll?

Ansonsten muss in der Zeile

Range("TReQ") = Wert

nur der Wert hinten angehängt werden. Zum Beipsiel

Range("TReQ") = Wert & " " & Wert1

fügt Dir den Wert aus Variable "Wert" und Variable "Wert1" mit einem Leerzeichen dazwischen ein.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

danke du hast mir sehr weitergeholfen!

mfg
janek

• Makro erstellen für Kommentar einfügen
• Makro Laufz 1004 - help please - auto_open
• Laufzeitfehler 1004 bei Methode 'UpdateLink'
• Laufzeitfehler 91
• Laufzeitfehler 1004