Ich würde gerne das Makro so erweitern, daß nach ausführen des Makros die zu letzt eingeführte Zeile in der Tabelle zu sehen ist.
momentan muß ich immer die aktuelle spaltenzahl manuell eingäben wie hier in Beispiel B1965 )
hier mein Makro:
:Sub import()
'
' import Macro
' Macro recorded 18.03.2003 by demaka1
'
' Keyboard Shortcut: Ctrl+i
' Ebaynummer importieren
Sheets("Importtabelle").Select
Range("D43").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("B5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Artikelbezeichnung importieren
Sheets("Importtabelle").Select
Range("D42").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("C5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Anzahl importieren
Sheets("Importtabelle").Select
Range("D51").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("F5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Preis importieren
Sheets("Importtabelle").Select
Range("D50").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("G5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Datum importieren
Sheets("Importtabelle").Select
Range("D44").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("I5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Name importieren
Sheets("Importtabelle").Select
Range("B23").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("M5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Strasse importieren
Sheets("Importtabelle").Select
Range("B24").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("N5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' PLZ - Ort importieren
Sheets("Importtabelle").Select
Range("B25").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("O5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Land importieren
Sheets("Importtabelle").Select
Range("B26").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("P5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Ebay Name Mail Adresse importieren
Sheets("Importtabelle").Select
Range("D47").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("Q5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Link zur Auktion importieren
Sheets("Importtabelle").Select
Range("A33").Select
Selection.Copy
Sheets("Kundendaten").Select
Range("S5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Bearbeitungsnummer einfügen
Range("A3").Select
Selection.Copy
Range("A5000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Nullen einfügen
Range("J5000").Select
ActiveCell.FormulaR1C1 = "0"
Range("K5000").Select
ActiveCell.FormulaR1C1 = "0"
Range("J5015").Select
'Sortieren nach Bearbeitungsnummer
Range("A5:s5000").Select
Selection.sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Importtabelle Löschen
Sheets("Importtabelle").Select
Cells.Select
Selection.Clear
'Kundentaten markieren
Sheets("Kundendaten").Select
Range("B1965").Select
End Sub
/***********************************************/
im voraus vielen Dank Matthias