Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

letzten Wert einer Zelle in neue Datei speichern

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
Anzeige
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
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige