suchen kopieren
01.09.2014 19:49:41
Herbert
Hallo,
habe folgendes Problem.
Der Code unten sucht und kopiert mir Daten in ein anderes Tabellenblatt, leider aber nur in die gleiche Spalte, wie bekomme ich es hin, dass ich die Spalte bestimmen kann,wo es hinkopiert wird.Im Moment sucht er in A1 und kopiert in die Tabelle Mo auch in A1
Hoffe ich habe gut ausgedrückt.
und vielen Dank im Voraus
Sub LG_suchen()
Dim rngAct As Range
Dim strFindFirst As String
Dim intLoopCount As Integer
Dim varFind As Variant
'Begrenzung des zu durchsuchenden Bereichs
'auf Spalte C
With ActiveSheet.Columns(1)
'1. Übereinstimmung finden
Set varFind = .Find(What:="g", After:=Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)
If Not varFind Is Nothing Then
'1. Zelle für das Beenden der Do-Loop-Schleife merken
strFindFirst = varFind.Address
Do
'Treffer hochzählen
intLoopCount = intLoopCount + 1
'Zelle mit Suchkriterium in Tabelle2 an die gleiche
'Position kopieren.
Range(varFind.Address).Copy _
destination:=Sheets("Mo").Range(varFind.Address)
'nächste Zelle suchen
Set varFind = .FindNext(varFind)
'Schleife ausführen, solange das Suchkriterium gefunden
'wird und bis letztendlich wieder die 1. Zelle erreicht ist
'(sonst würde es in einer Endlosschleife enden)
Loop While Not varFind Is Nothing And varFind.Address strFindFirst
End If
End With
End Sub
Gruß
Herby