beim öffnen der Arbeitsmaske von Tab 1 zu Tab. 2 Daten Kopieren

[JuergenRa]

Moin,

ich habe den Code so übernommen, dennoch bekomme ich eine Fehlermeldung und ich kann nicht erkennen warum.

Gruß
Jürgen.

[HKindler]

Hi,

das ist ein typischer Fehler: x1Values <> xlValues (Eins <> kleines L)
Gleiches gilt für xlWhole.
Man sollte schon richtig abschreiben. Oder doch besser kopieren.
Solche Fehler merkt man leicht, wenn man ganz am Anfang eines Moduls Option Explicit setzt.

[JuergenRa]

Hallo Helmut,

erstmal danke für die Information, ist hab es nicht gesehen.

Nun Funktioniert es auch.

Kannst du mir noch den Quellcode erklären, ich bin gerade dabei VBA zu lernen.

Im Anhang unter Endwickletools hab ich einige (?)

Danke und Gruß
Jürgen

[JuergenRa]

Ich habe die Tabelle mit den Richtigen Zeilen und Spalten im Anhang. 
Nun Stellt sich mich die Frage wie passe ich den Quellcode an. 

Gruß
Jürgen

---

Anhang inkl. Code

[Crazy Tom]

moin,

du willst doch VBA lernen!? warum versuchst du dann nicht selbst den Code anzupassen?

nach wie vor würde ich es über eine Schaltfläche ausführen
aber wenn du es unbedingt so willst...!

Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim KWSuche As Variant
    Dim c As Range
    Dim i As Integer
    KWSuche = Sheets("Tabelle1").Range("J2").Value
    With Sheets("Tabelle2")
        Set c = .Rows(2).Find(KWSuche, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            For i = 3 To 6
                .Cells(i, c.Column).Value = Sheets("Tabelle1").Cells(i + 1, 11).Value
            Next
        End If
    End With
    ThisWorkbook.Save
    With Application
        .DisplayAlerts = False
        .Quit
    End With
End Sub

mfg Tom

[HKindler]

Hi,

wenn du VBA lernen willst: ich habe das damals damit (bzw. mit der zugehörigen PDF-Datei) gemacht.