Bezüge fliegen raus
schokoline
vielleicht hat hierzu jemand eine Idee:
- Ich bekomme eine Mappe mit 20 Tabellenblättern geliefert, die ich weiterverarbeiten möchte
- Auf jedem Tabellenblatt gibt es viele Berechnungen. MICH interessieren aber jeweils nur die Ergebnisse in den Spalten
- Daher habe ich an das Ende der Mappe ein TB gehängt, das nur die Ergebnisse übernimmt
- Das letzte TB enthält ein Makro auf einem Speicher-Button, um nur dieses "ausgeklinkte" TB mit den Werten zu speichern (das verwende ich dann nämlich weiter für eine Berechnung von Durchschnittswerten)
Hier mal das Makro: Private Sub Speichern_Click() Dim sPath As String, sWks As String, sFile As String Application.ScreenUpdating = False sPath = Application.DefaultFilePath & "\" sWks = InputBox( _ prompt:="Blattname", _ Default:="Tabelle") If sWks = "" Then Exit Sub ActiveSheet.Copy ActiveSheet.Name = sWks ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename("C:\KuEr\", "Microsoft Excel- _ Arbeitsmappe (*.xls), *xls", , "Datei speichern unter...") _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Application.ScreenUpdating = True End Sub
Nun dachte ich: Ich führe mein Speichern aus (habe dann alle Ergebnisse A), dann lösche ich die erste Spalte und könnte so mein "Speichern" für Ergebnisse B erneut ausführen. Die Bezüge müssten also auf Spalte A erhalten bleiben. Dann wollte ich das so oft wiederholen, bis ich alle Ergebnisse übernommen habe.
Aber: Auch mit $-Zeichen und absoluten Bezügen erhalte ich die Fehlermeldung #Bezug, sobald ich die erste Spalte gelöscht habe.
Gibt es einen Trick, damit in meinem TB, das die 200 Ergebnisse zusammenfasst, doch der Bezug erhalten bleibt?
Schon jetzt ein Danke, wenn mir jemand helfen kann!
schokoline