Letzte Zeile in Tabelle1 Spalte A suchen und letzten Wert um 1 erhöhen

10/10/2009 - 15:16 von Heinz ROGHB346 | Report spam
Hallo zusammen,

ich möchte per Makro die letzte Zeile in Tabelle1 Spalte A suchen und den
letzten Wert um 1 erhöhen anschließend soll die nàchste Spalte B Select
sein.


Freundlicher Gruß an alle
Hewinz
 

Lesen sie die antworten

#1 Claus Busch
10/10/2009 - 15:33 | Warnen spam
Hallo Heinz,

Am Sat, 10 Oct 2009 15:16:47 +0200 schrieb Heinz ROGHB346:

ich möchte per Makro die letzte Zeile in Tabelle1 Spalte A suchen und den
letzten Wert um 1 erhöhen anschließend soll die nàchste Spalte B Select
sein.



für die Spalten A:E:

Sub LetzteZeile()

Dim i As Integer
Dim LRow As Long

With Sheets("Tabelle1")
For i = 1 To 5
LRow = .Cells(Rows.Count, i).End(xlUp).Row
.Cells(LRow, i) = .Cells(LRow, i) + 1
Next
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen