Thema: Zellen Inhaltübergabe | Herbers Excel-Forum

Hallo!
Habe ein Problem oder stehe auf der Leitung und erbitte Eure Hilfe!
Ich hab in der Spalte P in manchen Zellen Texte stehen und ich möchte diese Texte übertragen in die Spalte H übertragen. (z.B. Bereich P3 bis P20 wenn in einer der Zellen ein Text steht hätte ich den gerne in die Spalte H gleiche Zeile übertragen).
Wie kann ich das mit VBA machen.
Gruß
Leitz G.

Hallo Leitz,
das geht ohne VBA.
Tabelle1

	H	P
2	ghhhkj	ghhhkj
3		16.12.2009
4		12

verwendete Formeln
Zelle	Formel
H2	=WENN(TYP(P2)=2;P2;"")
H3	=WENN(TYP(P3)=2;P3;"")
H4	=WENN(TYP(P4)=2;P4;"")

Tabellendarstellung in Foren Version 4.31

Hallo!
Danke für die Hilfe!
Leider nicht ohne VBA, da ich mit VBA aus verschiedenen Arbeitsmappen die Werte in eine neue kopiere und ich auch keine Formeln im Tabellenblatt möchte. Außerdem steht in der Spalte H bereits ein Wert der nur bei einem Eintrag in Spalte P ersetzt werden soll.
Gruß
Leitz G.

Hallo!
Habs jetzt mal geschrieben für eine Zeile so wie ichs kann.
If Range("P4") <> "" Then
Range("P4").SpecialCells(xlCellTypeVisible).Copy
Range("H4").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End if
Bräuchte das aber nun variabel von P4 bis P20 z. B. (wenn in P was steht rüber nach H).
Das kann ich aber leider nicht!
Gruß
Leitz G.

Hallo Leitz
Teste mal so.

Sub n()
Dim i As Long
For i = 3 To 20
If Cells(i, 16) <> "" Then Cells(i, 16).Copy Cells(i, 8)
Next
End Sub

gruss hary

Herzlichen Dank!
Gruß
Leitz G.