Text in sichtbare Zellen und bestimmte Spalte aus markierten Bereich einfügen.

Hallo,
<br />erstmal vielen Dank für die Antwort! Ich hatte leider andere To-Do´s, deshalb hat es jetzt ne Woche bei mir gedauert.
Der Code funktioniert leider nicht ganz wie intendiert, da jede Zelle der Zeile durchlaufen wird. Somit wird in Spalte F der Inhalt jeder Zelle eingefügt, um dann mit der nächsten Schleife wieder von dem Inhalte der nächsten Spalte in der Reihe überschrieben zu werden.
Mein Ziel ist es, dass nur der Inhalt der Spalte F kopiert und wiedereingefügt wird.

Ist es möglich im Code an folgender Stelle cl.Value durch Code ersetzen, der nur Spalte F anspricht?:
<br />Range("F" & cl.Row) = Sheets("NAR OPL ECC EPC EEMZ1").Range("S2") & vbCrLf & cl.Value

Zumindest wäre das mein Ansatz.
<br />
Beste Grüße,
<br />Volker
<br />

Hallo Volker,
<br />probiere es mal so:
<br />

Sub Datum_und_CW_einfügen_Formatierung()

Dim cl As Range

Dim xRng As Range

Set xRng = Application.InputBox("Please select macro range:", "Kutools for", Selection.Address, , , , , 8) ''' wähle Bereich aus

If xRng Is Nothing Then Exit Sub

For Each cl In xRng.SpecialCells(xlCellTypeVisible) '''für jede sichtbare Zelle

Range("H" & cl.Row) = "CW" & Sheets("NAR OPL ECC EPC EEMZ1").Range("T2") & "/22" ''' Datum aus T2 einfügen

Range("F" & cl.Row) = Sheets("NAR OPL ECC EPC EEMZ1").Range("S2") & vbCrLf & cl.Value ''' Text der Zelle übernehmen und zusätzlich Text aus S2 einsetzen.

Next

End Sub

Claus
<br />

Hallo Alex,

klappe alles was nicht kopiert werden soll ein =>markiere die Tabelle => Suchen und Auswählen => Gehe zu => Inhalte => Nur sichtbare Zellen. Dann markierten Bereich kopieren und einfügen.

Claus

Multiplikation mit 1

Schreibe eine 1 in eine Zelle, diese Zelle kopieren, markiere Deinen Bereich, rechte Maustaste, Inhalte einfügen, im Dialog auswählen Multiplikation und ok.

Oder Text in Spalten.

Gruß

Hallo,

füge keine komplette Zeile ein sondern nur die Zellen für den markierten Bereich.

Markiere deinen Bereich => Rechtsklick => Zellen einfügen => Zellen nach unten verschieben.

Claus