Suchen und Kopieren Makroänderung
20.11.2007 19:40:00
Rolf
ich habe zu diesem Makro drei Fragen.
Folgendes Makro sucht nach Artikelnummern und kopiert die gefundenen Daten in die Datei "Test".
Das Makro funktioniert sehr gut.
Ich möchte das Makro um folgende Punkte ändern:
1. Set wks2 = .. Hier möchte ich das der Name der Datei "Test.xls" und die Tabelle Sheets(2)
aus der Tabelle1 aus der Zelle A1 und A2 entnommen wird, da der Dateiname variabel sein soll.
2. If wks1.Cells(zeile, 2).Value = 2000 Then - funktioniert so nur mit Zahlen (2000 Then) - wie muß diese Zeile lauten, wenn auch Buchstaben vorhanden sind z.B. (B2000 Then)?
3. Bei diesem Makro werden auch Formate kopiert. Wie muß die Copy-Zeile geändert werden um nur Werte zu kopieren?
Sub Suchen_kopieren()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = Worksheets("Artikelnummern")
Set wks2 = Workbooks("Test.xls").Sheets(2)
'Name "Test.xls" soll aus Tabelle1 Zelle A1 und Sheet(2) aus Zelle A2 entnommen werden
Dim zeile As Long, zz As Long, letzte As Long, letzteB As Long
For zeile = 6 To 100
If wks1.Cells(zeile, 2).Value = 2000 Then
'funktioniert so nur mit Zahlen (2000 Then) - wie muß diese Zeile lauten, wenn auch Buchstaben
'vorhanden sind z.B. (B2000 Then)?
If wks2.Range("B65536").End(xlUp).Row
Ich möchte mich schon einmal im voraus bedanken
Gruß Rolf