Office: Hilfe für Liste

Hallo,

ich benötige für eine Excelliste ein wenig Hilfe. Ich komme leider nicht mehr weiter....

ich habe eine Excelliste mit 2 Tabellen.

1 Tabelle ( Seite )

da gibt es eine Eingabemaske

D9 = Besellnummer
E9 = Netto EK
F9 = Netto EK
G9 = Lieferant
H9 = Zahlungsart


Bei G9 ( Lieferant ) habe ich folgende Kürzel A/B/C/D/E
hinter jedem Kürzel verbirgt sich ein anderer Lieferant mit anderen Zahlungsbedingungen


Als erstes wollte ich nun, das wenn ich in der Eingabemaske die 5 Spalten fülle,
das diese dann automatisch gleich in die Tabelle 2 in richtiger reinfolge eingetragen werden.

In der Tabelle 2 gibt es folgende Spalten


A1 = Bestellnummer
B1 = Netto VK
C1 = Netto EK
D1 = Lieferant
E1 = Zahlung
F1 = netto

ich möchte nun folgendes erreichen,

Ich gebe in der Maske z.b folgendes ein


D8 E8 F8 G8 H8
2014000121 110,00 99,15 A P


nun sollen diese Daten in die Tabelle 2 eingetragen werden


A1 B1 ................

2014000121 110,00 ...............



Es wird aber sein, das die Eingabe der Bestellnummern nicht fortlaufend kommt.

Die Bestellnummern sollten aber irgendwie schon fortlaufend dann in der Tabelle eingepflegt werden.

In näöchsten Schritt soll noch etwas berechnet werden... Aber vieleicht dazu später mehr.

Kann mir bis hierher erst mal jemand helfen ??

 

Hi,

vielleicht wäre das eine Möglichkeit:

Code:

Sub Kopieren()
    Dim lngErste As Long
    If Range("D9") <> "" Then
        With Worksheets("Übersicht")
            lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
            Range("D9:H9").Copy
            .Cells(lngErste, 1).PasteSpecial Paste:=xlValues
            .Range(.Cells(2, 1), .Cells(lngErste, 6)).Sort Key:=.Cells(2, 1), order1:=xlAscending, Header:=xlYes, _
                ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, dataoption1:=xlSortNormal
        End With
    End If
End Sub

Bis später,
Karin