VBA - cell.copy
05.08.2014 10:04:01
Felix
ich stehe vor einem kleinen Problem hinsichtlich meines Codes.
Hintergrund ist, dass ich ein Tabellenblatt nach einem bestimmten Wort durchsuche und wenn dieses gefunden wird, die entsprechende Zeile in ein zweites Blatt kopiert werden soll. Das funktioniert soweit auch hervorragend. Siehe Code:
Public Sub Daten_holen()
Dim i As Integer
Dim cell As Range
i = 8
For Each cell In Tabelle1.Range("I:I")
If Not cell Is Nothing Then
If cell.Value = "Suchwort" Then
cell.EntireRow.Copy Destination:=Tabelle2.Rows(i)
i = i + 1
End If
End If
Next cell
End Sub
Nun ist es so, dass nur in den ersten 10 Spalten Daten enthalten sind. In Spalte 11 des zweiten Blattes würde ich gerne eine Formel platzieren, die nicht jedes mal überschrieben wird, wenn ich das Makro ausführe. Es soll also nicht mehr die komplette Zeile kopiert und eingefügt werden, sondern lediglich die ersten 10 Spalten (A:J). Leider komme ich an dieser Stelle nicht weiter. Alle meine Versuche sind bislang gescheitert. Ich hoffe ihr könnt mich auf den richtigen Pfad bringen.
Vielen vielen Dank im Voraus.