Zellen automatisch verschieben wenn Zelle besetzt

25/02/2008 - 20:22 von wolfbuero | Report spam
Halle Exelexperten,
befasse mich mit Ü50 erst seit kurzem mit Exel

Will aus Quittungen die Ergebnisse mit einem Makro in ein Kassenbuch
übertragen. Dies funktioniert. Auf A1 erscheint immer wieder ein neues
Ergebnis. Nun sollen diese auf B1 bis B50 ( mehr Quittungen gibt es
im Monat nicht!) aufgelistet werden.
Also immer wenn auf A1 ein Ergebnis erscheint soll mittels weiterem
Makro dieses Ergebnis auf B1 das nàchst auf B2 das 3. auf B3 und so
weiter
Habe Euro Formel verwenden wollen, geht nicht was mache ich FALSCH???

Private Sub Worksheet_Calculate()

Dim nErg As Integer 'Ergebniszelle in der primàren Tabelle
nErg = Range("A1").Value 'Ergebniszelle

Worksheets("ErgTab").Activate 'Ergebnistabelle sekundàre Tabelle
Worksheets("ErgTab").Range("B1:B50").End(xlUp).Offset(1, 0).Value = nErg
'schreibt das Ergebnis untereinander.

End Sub



Wird mit "ErgTab" der Tabellenname z.B. Tabelle1 gemeint? Wird der
Name
in Anführungszeichen gesetzt "..." ?
Viele Grüße und BESTEN DANK fürv Eure Hilfe

von Wolfgang aus Freiberg
 

Lesen sie die antworten

#1 Wolfgang Habernoll
26/02/2008 - 00:20 | Warnen spam
Hallo Wolfgang

schrieb im Newsbeitrag
news:
Halle Exelexperten,
befasse mich mit Ü50 erst seit kurzem mit Exel



da hast du dann auch in Zukunft immer etwas zu tun, denn hier lernt man nie aus
;-)

Will aus Quittungen die Ergebnisse mit einem Makro in ein Kassenbuch
übertragen. Dies funktioniert. Auf A1 erscheint immer wieder ein neues
Ergebnis. Nun sollen diese auf B1 bis B50 ( mehr Quittungen gibt es
im Monat nicht!) aufgelistet werden.
Also immer wenn auf A1 ein Ergebnis erscheint soll mittels weiterem
Makro dieses Ergebnis auf B1 das nàchst auf B2 das 3. auf B3 und so weiter
Habe Euro Formel verwenden wollen, geht nicht was mache ich FALSCH???

Private Sub Worksheet_Calculate()
Dim nErg As Integer 'Ergebniszelle in der primàren Tabelle
nErg = Range("A1").Value 'Ergebniszelle
Worksheets("ErgTab").Activate 'Ergebnistabelle sekundàre Tabelle
Worksheets("ErgTab").Range("B1:B50").End(xlUp).Offset(1, 0).Value = nErg
'schreibt das Ergebnis untereinander.
End Sub

Wird mit "ErgTab" der Tabellenname z.B. Tabelle1 gemeint? Wird der Name
in Anführungszeichen gesetzt "..." ?
Viele Grüße und BESTEN DANK fürv Eure Hilfe

von Wolfgang aus Freiberg



also mit ErgTab wird hier im Code die Tabelle gemeint in der in A1 das Ergebnis
kommt und in B1.B2 usw. geschrieben werden soll. Kopiere folgenden Code einmal
im VBE-Editor in die "ErgTab" dann sollte es klappen.

Private Sub Worksheet_Calculate()
Dim wksZiel As Worksheet
Set wksZiel = Worksheets("ErgTab")
wksZiel.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value =
wksZiel.Range("A1")
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen