Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren und Zelle vergrößern

Forumthread: Kopieren und Zelle vergrößern

Kopieren und Zelle vergrößern
01.06.2023 14:54:20
wolfgang

Hallo allerseits,
ich habe folgendes Makro zusammengestellt:

Sub Schutz_direkt_raus_und_kopieren()
    Range("K35").Select
    Selection.Copy
    Range("B27").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

ich möchte gern, wenn möglich, das die Zelle, entsprechend der länge des Textes vergrößert wird.
Der Ursprung meines Kopiervorganges ist allerdings eine Zelle, in der 5 Textzeilen untereinander
angezeigt werden und ich dies mit der Tastenkombination "C" kopieren und "V" einfügen
nicht klappt.
mfg wolfgang

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und Zelle vergrößern
01.06.2023 15:26:25
JoWE
Hallo.
versuch mal dies (ungetestet,; bin am Smartphone)
Sub Schutz_direkt_raus_und_kopieren()
    Range("K35").Copy Range("B27").PasteSpecial Paste:= _
    xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("B27")=Replace(Range("B27"),vbnewline," ")
End Sub
Gruß
Jochen


Anzeige
AW: Kopieren und Zelle vergrößern
01.06.2023 15:30:25
JoWE
Und zusätzlich noch: (vor end sub)
Columns("B:B").EntireColumn.AutoFit
Um die Spaltenbreite anzupassen


AW: Kopieren und Zelle vergrößern
01.06.2023 15:42:54
wolfgang
Hallo Jochen,
macht das gleiche wie bei meinem alten Makro. Die Spaltenbreite darf nicht durchgeführt,
da sonst alles mit dem Ausdruck nicht mehr klappt.

Ich hatte gehofft das es eine Möglichkeit gibt, automatisch die Zelle in der die Werte stehen,
einfach verbeitert bzw. auf die nächste Zelle verteilt wird oder die höhe automatisch angepasst wird.

mfg wolfgang


Anzeige
AW: Kopieren und Zelle vergrößern
01.06.2023 15:46:07
wolfgang
Hallo,
habe mal aufgezeichnet:
Rows("27:27").RowHeight = 39.2
das müsste automatisch gehen.

gr wolfgang


AW: Kopieren und Zelle vergrößern
01.06.2023 15:56:14
JoWE
Hmmm,
vielleicht nimnst Du statt:
Columns("B:B").EntireColumn.AutoFit
Dann mal
Rows(27).AutoFit
sofern Du da keine verbundenen Zellen hast könnte das ja klappen?!


Anzeige
DANKE klappt ebenfalls ! --))
01.06.2023 15:59:39
wolfgang


AW: Gerne
01.06.2023 16:03:53
JoWE


Habs gefunden... -) Danke Jochen
01.06.2023 15:56:52
wolfgang
Hallo Jochen,
habs gerade gefunden:
ActiveSheet.Range("B27").Rows.EntireRow.AutoFit
danke für die Unterstützung !
gr wolfgang

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige