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

Forumthread: Zellen automatisch kopieren

Zellen automatisch kopieren
23.09.2024 15:00:40
Martin
Hallo
gibt es eine Möglichkeit per Marko die Zellen als TEXT zu formatieren und dann den gleichen Text in der Zelle (Spalte D)
für die jeweils unteren Zellen automatisch zu kopieren?
siehe Beispiel im Anhang.

Viele Grüsse
Martin
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen automatisch kopieren
23.09.2024 15:08:18
Onur
WELCHER Anhang denn ???
AW: Zellen automatisch kopieren
23.09.2024 15:25:20
daniel
Hi
es reicht nicht, den Anhang nur hochzuladen.
du musst auch den Link der dir gezeigt wird kopieren und in deinen Beitrag einfügen.
das steht da auf der Seite eigentlich ausführlich beschrieben.

aber auch an deiner Beschreibung solltest du noch etwas arbeiten.
ich verstehe noch nicht, was du erreichen willst.

Gruß Daniel
Anzeige
AW: Zellen automatisch kopieren
23.09.2024 15:30:05
Yal
Hallo Martin,

rechtsklicke auf dem Reiter des Blattes, bei dem das Verhalten vorkommen soll, wähle "Code anzeigen",
in diesem Fenster copy-paste folgende Code:

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Cells.Count > 1 Then Exit Sub 'nur wenn eine Zelle geändert wurde
Target.NumberFormat = "@" 'Format als Text
Target.EntireRow.Cells(4) = Target.Value 'wert in Zelle 4 der gesamte Zeile, also in Spalte D
End Sub


dann sollte, wenn Du irgendwo auf diesem Blatt ein Eintrag machst, diese als Text formatiert und in der Spalte D derselben Zeile kopiert werden.

VG
Yal
Anzeige
AW: Zellen automatisch kopieren
23.09.2024 23:15:07
Udo D
Hi Martin,
hier mal einige Code-Bruchstücke, die du dafür
je nach deiner Vorstellung dann verwenden könntest.

Vielleicht ist ja das passende dabei
LG Udo

' Zellformat als Text wandeln

[D4].NumberFormat = "@"
[D4:D200].NumberFormat = "@"
Cells(ActiveCell.Row, 4).NumberFormat = "@"
'usw

' Möglichkeiten zum Übernehmen des Zellinhaltes in anndere Zellen
[D5] = [D4].Text
[D5] = [D4].Value
[D5:D200] = [D4].Value
Cells(ActiveCell.Row + 1, 4) = Cells(ActiveCell.Row, 4).Value
Range(Cells(5, 4).Address & ":" & Cells(100, 4).Address) = [D4].Value ' Text in D4 bis Zeile 5:100 in Spa D
Range(Cells(5, 4).Address & ":" & Cells(Rows.Count, 4).Address) = [D4].Value ' ... bis ans Ende unten

' nach Selektion unterhalb von D4 (egal in welcher Spa du anteilg Zellen selektierst, Eintrag dann in D

Range(Cells(Selection.Row, 4).Address & ":" & Cells(Selection.Row + (Selection.Rows.Count - 1), 4).Address) = [D4].Value ' ... innerhalb der selektierten Zeilen
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige