Hallo,
ich kopiere einen wert von einer Tabelle in die nächste, nun möchte ich den alten Wert nicht überschreiben sondern den kopierten Wert in die nächste Spalte Schreiben
Das habe ich bisher:
Dim varSuchen, lngZeileZiel As Long, rngSuchen As Range
Dim wbZiel As Workbook, wksZiel As Worksheet
Dim wbQuelle As Workbook, wksQuelle As Worksheet
Dim loSpalte As Long
On Error GoTo ende
Set wksQuelle = Worksheets("AM") 'Quellen-Blatt in Datei 1
Set wksZiel = Worksheets("Ausschussliste")
varSuchen = wksQuelle.Range("M18").Value 'Suchwert aus einer Zelle im Quell-Blatt auslesen
If varSuchen "" Then 'Eingabewert im Zielblatt Spalte B suchen
Set rngSuchen = wksZiel.Columns(2).Find(what:=varSuchen, LookIn:=xlValues, lookat:=xlWhole)
If rngSuchen Is Nothing Then 'MsgBox funktioniert nicht!!Wieso?
MsgBox "Suchebegriff im Zielblatt nicht gefunden!"
Else
lngZeileZiel = rngSuchen.Row 'Daten aus Datei 1 in gefundener Zeile in Zieltabelle kopieren
loSpalte = rngSuchen.Column + 1 'Daten aus Datei 1 in Spalte neben gefundner Spalte in Zieltabelle kopieren
' Spalten-Index in Variable schreiben
wksQuelle.Range("M22").Copy Destination:=wksZiel.Cells(lngZeileZiel, loSpalte)
End If
'Zieltabelle anzeigen falls erforderlich/gewünscht
'wbZiel.Activate
'wksZiel.Activate
End If
GoTo end2
end2:
ende:
If Err.Number 0 Then
MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End If
TextBox1 = "" 'bei OK alle Werte zurücksetzen
Range("M18") = ""
Range("M22") = 0
MsgBox "Wert übermittelt" 'Meldung nach erfolgreicher Übermittlung
End Sub
es funktioniert auch die MessageBox MsgBox "Suchebegriff im Zielblatt nicht gefunden!"
leider nicht
kann mir jemand helfen?:-/
Danke :-)
Christian