letzten Wert einer Zelle in neue Datei speichern

Forumthread: letzten Wert einer Zelle in neue Datei speichern

09.01.2006 10:40:32

Jessica

Hallo Leute
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: letzten Wert einer Zelle in neue Datei speichern

09.01.2006 15:31:50

Jessica

AW: letzten Wert einer Zelle in neue Datei speichern

09.01.2006 15:31:50

Jessica

Hallo Leute hab mal ein bische weiter gebastelt!
hab für alles was nicht funktioniert Kommentare in den Code geschrieben
Wäre dankbar wenn jemand den Code ändern könnte, weiß echt nicht weiter.
neuer Code:


Sub Aktualisierung()
On Error Resume Next
Dim z As Long, letzte As String
Dim Pfad As String, Sheet As String
'Wert zu vereinfachung festgelegt (Proz speichern muss nicht ständig ausgeführt werden)
Pfad = "TEST.xls" '
Sheet = "Ertragswertverfahren"
letzte = Range("B65536").End(xlUp).Address
Workbooks("Bewertungsübersicht.xls").Activate
Worksheets("Tabelle1").Activate
Cells.SpecialCells(xlCellTypeBlanks).Delete xlUp
z = 2
Do While Cells(z, 2) <> ""
If Cells(z, 2) = Pfad Then
Cells(z, 2) = Pfad
Cells(z, 1) = Sheet
'           In Zelle C&z soll die Verknüpfung zur Mappe "Test", dem
'           Blatt "Etragswertverfahren" und der letzten Zelle angelegt werden,
'           funktioniert aber nicht richtig
'           z.B. C12 ='[TEST.xls]Ertragswertverfahren'!$B$11 soll erscheinen
Cells(z, 3) = "='" + Pfad + "]" + Sheet + "'!" + letzte + ""
GoTo st
End If
z = z + 1
Loop
' wird aus geführt wenn keine übereinstimmung gefunden wird
Cells(z, 1) = Sheet
Cells(z, 2) = Pfad
'   Summenberechnung eine Zelle nachunten kopieren
'   Gibt es dort vielleicht noch eine elegantere Lösung?
Cells(z, 3).Copy
Cells(z + 1, 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'   Wert einfügen Funktioniert aber auch nicht
Cells(z, 3) = "='" + Pfad + "]" + Sheet + "'!" + letzte + ""
st: '   Sortieren
Columns("A:C").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
End Sub

Irgenwie trägt er mir nicht den Wert richt bzw. garnicht ein. Die letzte Zelle ermitelt er richtig.
Kann mir bitte jemand helfen
Jessica

Beliebteste Forumthreads (12 Monate)

letzten Wert einer Zelle in neue Datei speichern

Forumthread: letzten Wert einer Zelle in neue Datei speichern

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread