Ich sapeichere das aktive Sheet einer Datei in einer neuen Arbeitsmappe.
1.Problem: Letzten Wert aus Spalte C der neuen Datei(Pfad = vollständige Pfadangabe der neuen Datei) ermittlen und in Bewertungsübersicht.xls speichern.
2. Problem: In letzter Zelle der Spalte C soll die Summe der Spalte C stehen. Summe aller Werte (Spalte C) in Datei Bewertungsübersicht.xls bilden bzw. Formel aktualisieren und eine Zeile Nachunten verschieben, wenn eine neue Zeile hinzugefügt wurde
Hoff ich hab mich verstämndlich ausgedrückt.
Bisheriger Code:
Sub Aktualisierung(Pfad As String, Sheet As String)
'Pfad = Pfad + Dateiname der neu angelegten Datei
'Sheet = Name des Tabellenblattes der neu angelegten Datei
On Error Resume Next
Dim z As Long
' Werte aus Tabelle 1 mit strHelp vergleiche
Workbooks("Bewertungsübersicht.xls").Activate
Worksheets("Tabelle1").Activate
z = 3
Do While Cells(z, 2) <> ""
If Cells(z, 1) = Pfad Then
'eintrag des Pfades
Cells(z, 2) = Pfad
'eintrag des Verfahrens
Cells(z, 1) = "='[" + Pfad + "]" + Sheet + "'!R1C2"
Exit Sub
End If
z = z + 1
Loop
'Wenn keine übereinstimmung gefunden wurde
Cells(z, 1) = "='" + Pfad + "]" + Sheet + "'!R1C2"
Cells(z, 2) = Pfad
End Sub
Danke für eure Hilfe schonmal im voraus
Jessica