Makro_ Kopieren in nächses Feld

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Makro_ Kopieren in nächses Feld
von: Holger Meinert
Geschrieben am: 17.05.2002 - 08:25:29

In einem Arbeitsblatt soll beim Öffnen ein Makro automatisch
gestartet werden.Das Makro soll aus einem Tabellenblatt einen Wert (der sich täglich ändert)der sich z.B. in Zelle A1 befindet in ein anderes Tabellenblatt kopieren (Zelle A1).Am nächsten Tag soll dieser Wert in die Zell A2 kopiert werden > also immer eine Zelle weiter.
Vielen Dank für die Hilfe !!

nach oben   nach unten

Re: Makro_ Kopieren in nächses Feld
von: Andreas
Geschrieben am: 17.05.2002 - 10:08:53

Hallo Holger,

hier erst mal das Makro, bitte bei DieseArbeitsmappe einfügen:

Private Sub Workbook_Open()
Const SPALTE = 1 'ZielSpalte
Dim lngZeile As Long

With Worksheets("Tabelle2") 'Zieltabellenblatt
    lngZeile = .Cells(Rows.Count, SPALTE).End(xlUp).Row
    If Not IsEmpty(Cells(lngZeile, SPALTE).Value) Then _
        lngZeile = lngZeile + 1
    If lngZeile > Rows.Count Then
        MsgBox "Keine freie Zeile mehr, bitte überprüfen!", , "Achtung"
        Exit Sub
    End If
    .Cells(lngZeile, SPALTE).Value = Worksheets("Tabelle1").Range("A1").Value
End With
End Sub

Jedesmal wenn die Datei geöffnet wird, wird der Wert aus Tabelle1 A1 in die 1. Spalte der Tabelle2 geschriebem und dort unter die letzte beschrieben Zeile!

Viel Spaß,
Andreas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro_ Kopieren in nächses Feld"