Clever-Excel-Forum

Hallo Leute,

Folgendes Problem: Ich brauche für folgenden Vorgang einen VBA-Code. Hier eine vereinfachte Darstellung: Ich habe in Tabelle 1 eine Auflistung der Personalkosten (D3:D14= Janauar 16 – Dezember 16) und Reisekosten (D16:D27= Janauar 16 – Dezember 16). In Tabelle 2 sind in den Zellen C3 und E3 die jeweiligen Monatswerte zu finden. Diese sollen immer per Makro in den letzten freien Zellenbereich eingefügt werden und somit den jeweiligen Monatswert füllen. Vielleicht hilft die beigefügte Excel-Datei noch ein bisschen :)

Ich bin für jede Hilfe dankbar :)

Viele Grüße

Goleo

Hi

eine Möglichkeit

Code:
Sub test()

    Dim lngZiel As Long

    With Sheets("Tabelle1")

        lngZiel = .Cells(15, 4).End(xlUp).Row + 1

        .Cells(lngZiel, 4).Value = Sheets("Tabelle2").Range("C3").Value

        lngZiel = .Cells(27, 4).End(xlUp).Row + 1

        If lngZiel <= 15 Then lngZiel = 16

        .Cells(lngZiel, 4).Value = Sheets("Tabelle2").Range("E3").Value

    End With

End Sub

MfG Tom

Klappt super :18: Ich danke vielmals :)))

Eine Frage hätte ich da noch: Wie muss der Code denn ergänzt/ angepasst werden, wenn ich zwei verschiedene Dateien habe – eine für den Monatswert (Monatswert.xlsx) und eine Datei für Personal (Personal.xlsx)? Muss ich einfach die vierte Zeile anpassen?
.Cells(lngZiel, 4).Value = Windows("Monatswert.xlsx").Sheets("Tabelle1").Range("C3").Value

Gruß
G.

Hallo

zumindest bis xl2010 setzt man dann das Workbook voran

Code:
.Cells(lngZiel, 4).Value = Workbooks("Monatswert.xlsx").Sheets("Tabelle1").Range("C3").Value

da gilt es dann aber zu beachten, dass das Workbook zuvor geöffnet wird
wie das geht findest du selber am schnellsten raus, indem du den Makrorekorder mitlaufen lässt
während du das andere Workbook über Datei --> Öffnen, öffnest
da wird dir dann der Code mit Pfadangabe angezeigt
kommst du dann nicht damit weiter kannst du dich hier mit dem
aufgezeichneten Code noch mal melden
MfG Tom

Goleo

Crazy Tom

Goleo

Goleo

Crazy Tom