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

[JuergenRa]

Moin zusammen,

ich möchte gerne das wenn ich die Exceldatei öffne das aus Tabelle 1 die Werte aus Spalte C in die Tabelle 2 in der jeweiligen Spalte Kopiert. Kriterium nach KW. Sprich wenn in der Tabelle 1 KW 27 steht sollen die Werte in der Tabelle 2 in der Spalte KW 27 Kopiert werden. 

VBA komme ich da leider nicht weiter. 

Danke schonmal für eure Hilfe. 

Jürgen

[HKindler]

Hi,

Gegenfrage: bei jedem Öffnen? Wozu? Dein Blatt1 ist völlig überflüssig.

[JuergenRa]

ja bei jeden öffnen die Daten die dahinter stecken werden von anderen bearbeitet, daher beim jeden öffnen.
Tabelle 1 ist die Liste an denen gearbeitet wird und Tabelle 2 benötrige ich die Daten

[Crazy Tom]

moin,

das würde ich nicht beim Öffnen erledigen sondern eher mit einer Schaltfläche

das hier wäre ein  Weg

Code:

Sub test()
    Dim KWSuche As Variant
    Dim c As Range
    Dim i As Integer
    KWSuche = Sheets("Tabelle1").Range("B1").Value
    With Sheets("Tabelle2")
        Set c = .Rows(1).Find(KWSuche, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            For i = 3 To 6
                .Cells(i - 1, c.Column).Value = Cells(i, 3).Value
            Next
        End If
    End With
End Sub

mfg Tom

[JuergenRa]

Hallo Tom,

und wenn man es beim schließen der Datei machen würde, wie würde das aussehen.

[Crazy Tom]

watt denn nu?
beim Schließen oder Öffnen?
lass den Code entweder im WorkbookOpen ausführen
oder im BeforeClose

[JuergenRa]

Leider bekomme ich ein Fehler

[HKindler]

Hi,

wieso eine Excel-Datei mit einem Bild hochladen statt das Bild selbst?
Hättest ja auch gleich noch die Excel-Datei in eine PDF-Datei drucken können, diese dann Zippen, uuencoden und hier als Text einstellen. [/Ironie]

Lösch mal die "Leerzeichen" vor den Befehlen. Vermutlich handelt es sich nicht um Leerzeichen, sondern um den ASCII-Code 160

[JuergenRa]

Hallo ,

ich denke das funktioniert auch nicht.

Jürgen

[HKindler]

Dann denk nicht, sondern mach es einfach!