Office: Zellwert kopieren und um 1 erhöhen

Hallo Experten,

ganz so trivial wie im Titel ist die Problemstellung leider nicht.

Das Makro müsste folgende Aufgaben erledigen:

(Ausgangspunkt ist die Datei Erfassung.xls)

- Öffne Datei Uebersicht.xls
- Finde letzten Wert in Spalte B
- Kopiere Wert und erhöhe ihn um 1
- Füge neuen Wert in Zelle BU5 in Datei Erfassung.xls ein
- Schließe Übersicht.xls

Das Öffnen und Schließen kann auch im Hintergrund geschehen, bspw. mit Hilfe von Application.ScreenUpdating = False/True

Ich hoffe, ihr könnt mir wieder einmal das Leben erleichtern.

Beste Grüße Christoph

:)

 

Moin, Christoph,

ungetestet:
Code:

 

Wow.
Das ging schnell. Danke schonmal.

Allerdings schmeisst er mir bei Workbooks ("Erfassung") folgende Fehlermeldung raus:
Unzulässige Verwendung einer Eigenschaft?!

Gruß Christoph

 

Hallo Chrisoph,

hier hat sich ein kleiner Tippfehler reingemoggelt. *eek.gif*

Code:

 

Moin, Christoph,

deshalb stand ungetestet dar - den Doppelpunkt in der zweiten Codezeile hatte ich ja noch entdeckt und "entschärft", der zweite ist mir dann (wie so viele meiner Tippfehler auch) trotz Seitenansicht leider nicht vor dem Posten aufgefallen...

 

Hi ihr beiden.
Funktioniert fasst perfekt.
Folgendes Problem:

- Er geht in Uebersicht und sucht sich die passende Zeile.
- Dann schreibt er aber den gesuchten Wert nochmal in Zeile 51 von Übersicht
- Infolgedessen gerät das System ausser Kontrolle

Ist das halbwegs verständlich?


Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Kassenrechner1\Desktop\Christophs Rekla Entwurf\Uebersicht.XLS"

With Sheets("Tabelle1").Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2)
.Value = .Value + 1
Workbooks("Erfassung.xls").ActiveSheet.Range("BU3").Value = .Value + 1

End With

ActiveWorkbook.Close SaveChanges:=True

Application.ScreenUpdating = True
End Sub

 

Moin, chrissi641,

was heißt Infolgedessen gerät das System ausser Kontrolle? Die Zeile mit dem Schreiben ( .Value = .Value + 1 ) kann entfallen, da ich nicht weiß, wie der Wert dort hineinkommt, hatte ich ihn erhöht (ich bin von einer eindeutigen Reihe ausgegangen, die beim mehrmaloigen Aufruf dieser Prozeudr verletzt werden würde):
Code:

 

Hi jinx,

leider hab ich erst am Freitag wieder die Möglichkeit es auszuprobieren.

Also, das Prozedere ist folgendes:

Ich habe eine Übersicht.xls in der ich bestimmte Vorgänge fortlaufend erfasse.
Zum Erfassen eines jeden Vorgangs habe ich ein Erfassung.xls, von dem (bestimmte für die Übersicht relevante) Zellwerte in Übersicht.xls kopiert werden.

In Erfassung.xls gibt es eine fortlaufende Nummer, die sich aus der Übersicht ergibt.

Also soll das Makro in Übersicht.xls gehen und dort die dem letzten Vorgang zugehörige Nummer suchen und diese für den neuen Vorgang um 1 erhöhen.

Anschließend werden die Daten aus Erfassung.xls wieder in Übersicht.xls abgelegt.

Ich hoffe, das Prozedere ist nachvollziehbar.

Ansonsten auf jeden Fall schonmal 1000Dank für die mehr als kompetente Unterstützung hier.

 

Hi.

Funktioniert leider nicht... *frown.gif*

Noch irgendwelche Ideen?

Gruß,
Christoph.

 

Moin, Christoph.,

wie wäre es mit einer Aussage, was denn nicht funktioniert, wenn Du den Code aus der VBE per F8 im Einzelschrittmodus durchläufst bzw. welche Fehlermeldung taucht an welcher Stelle auf?

 

Hi,

habe jetzt folgende Lösung, die aber immernoch nicht so recht klappen will:

Private Sub Reklanummererzeugen_Click()

Application.ScreenUpdating = False

Dim letzte As Long, temp
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Kassenrechner1\Desktop\Christophs Rekla Entwurf\Uebersicht.xls"
Workbooks("Uebersicht.xls").Sheets("Tabelle1").Activate
letzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
temp = ActiveSheet.Cells(letzte, 2).Value + 1
Workbooks("Erfassung.xls").Sheets("Tabelle1").Range("BU3").Value = temp
Workbooks("Uebersicht.xls").Close

Application.ScreenUpdating = True
End Sub

Findet jemand einen Fehler?

Gruß,
Christoph.

 

Moin, Christoph,

Code:

Funktioniert bei mir auf meine Dateien angepasst ohne Probleme.