Zellen automatisch kopieren

Forumthread: Zellen automatisch kopieren

23.09.2024 17: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen automatisch kopieren

23.09.2024 17:08:18

Onur
AW: Zellen automatisch kopieren

23.09.2024 17:25:20

daniel
AW: Zellen automatisch kopieren

23.09.2024 17:30:05

Yal
AW: Zellen automatisch kopieren

24.09.2024 01:15:07

Udo D

AW: Zellen automatisch kopieren

23.09.2024 17:08:18

Onur

WELCHER Anhang denn ???

AW: Zellen automatisch kopieren

23.09.2024 17: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

AW: Zellen automatisch kopieren

23.09.2024 17: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

AW: Zellen automatisch kopieren

24.09.2024 01: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

Forumthread: Zellen automatisch kopieren

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread