---

Jeg har brug for en VB kode der gennemser en kolonne og vælger de celler ud som indeholder tekst og copierre kun de celler som indeholder tekst og indsætter dem i et nyt ark.
Jeg har en makro som markerer en række celler og kopierer dem til et andet ark, men jeg kan ikke finde den kode som kun vælger de celler med tekst, det er i Excel .
Jeg er ikke god til programering så derfor dette spørgsmål.

---

Denne virker !
Mvh W.

Public Sub TextOnly2otherSheet()

Dim Sheet_source, Sheet_target As Object
Dim Sheet_source_colA, Sheet_target_colA As Range
Dim Sheet_source_CL As Range, Sheet_target_CL As Range

Set Sheet_source = Sheets("ark1")
Set Sheet_target = Sheets("ark2")

Set Sheet_source_colA = Sheet_source.Range("a:a")
Set Sheet_target_colA = Sheet_target.Range("a:a")

Sheet_source.Select
For Each Sheet_source_CL In Sheet_source_colA
If Application.IsText(Sheet_source_CL) Then 'MsgBox Sheet_source_CL
For Each Sheet_target_CL In Sheet_target_colA
If Sheet_target_CL = "" Then
Sheet_target_CL = Sheet_source_CL
Exit For
End If
Next
End If
Next
Sheet_target.Select

End Sub

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.