Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro

Makro
20.06.2003 00:25:14
matthias
Hallo ich habe eine umfangreiche Tabelle in die ständig ( über Makro ) neue Zeilen aufgenommen werden.
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



1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro
20.06.2003 05:33:58
PeterW

Hallo Matthias,

dimensioniere am Anfang des Makros eine Variable zur Ermittliung der letzten benutzen Zeile, beispielsweise Dim lgLetzte as Long. Am Ende des Makros statt Range("B1965").Select folgende Zeilen:
lgLetzte = Sheets("Kundendaten").End(xlUp).Row
Cells(lgLetzte, 2).Select

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige