Datensätze nummerieren

02/07/2010 - 12:39 von Holsteiner | Report spam
Hallo,

ich benutze Excel 2002 und habe folgendes Problem:

Ich habe eine kleine Datenbank und möchte in der ersten Spalte per Makro die
Datensàtze durchnummerieren. Hierzu ermittele ich die letzte Zeilennummer
der Datenbank und möchte nun beginnend ab der Zelle A5 bis zur letzten
Datenzeile eine Nummerierung durchführen.
Hierzu schreibe ich in Zelle A5 eine 1 und in A6 eine 2 und möchte nun über
die Autoausfüüfunktion bis zur letzten Zeile durchnummerieren lassen.


Leider erhalte ich im Debugger immer eine Fehlermeldung.

Kann mir bitte jemand weiterhelfen?

Vielen Dank im voraus



Günther



Hier mein Quellcode:


Dim i As String
Dim ii As String
Dim SuZl As Integer '
SuchZeile ' Schritt 1: freie Zeile suchen
Sheets("Stammdaten").Select
SuZl = 5
'SuchZeile auf Zeile 5 setzen, da ab hier die Datenbank beginnt

While Not (IsEmpty(Sheets("Stammdaten").Cells(SuZl, 3)))
'Prüfen ob in Spalte C5-CX Wert steht
SuZl = SuZl + 1
' Zeilen Nr. um 1 erhöhen
Wend
' wenn leere Zelle dann Schleifenende

SuZl = SuZl - 1
' Variable um 1 verringern, da dann letzter Datensatz der Datenbank
Range("A5").Select
ActiveCell.FormulaR1C1 = "1"
' 1 in Zelle A5 schreiben
Range("A6").Select
ActiveCell.FormulaR1C1 = "2"
' 2 in Zelle A6 schreiben
Range("A5:A6").Select

i = ("A")
ii = i & SuZl
'Adress zusammenbauen A59 (Beispiel) hàngt von der Menge der gefüllten
Zeilen ab)

Selection.AutoFill Destination:=Range("A5:ii"), Type:=xlFillDefault
' Durchnummerieren der Daten sàtze bis A59 (Beispiel siehe Zeile zuvor



Hier kommt dann i, Debugger die Fehlermeldung: Range("A5:ii") = < Die
Methode 'Range' für das Objekt _'Global' ist fehlgeschlagen.


Kann mir bitte jemand weiterhelfen ???


vielen Dank im voraus

Günther
 

Lesen sie die antworten

#1 Claus Busch
02/07/2010 - 13:04 | Warnen spam
Hallo Günther,

Am Fri, 2 Jul 2010 12:39:36 +0200 schrieb Holsteiner:

Ich habe eine kleine Datenbank und möchte in der ersten Spalte per Makro die
Datensàtze durchnummerieren. Hierzu ermittele ich die letzte Zeilennummer
der Datenbank und möchte nun beginnend ab der Zelle A5 bis zur letzten
Datenzeile eine Nummerierung durchführen.
Hierzu schreibe ich in Zelle A5 eine 1 und in A6 eine 2 und möchte nun über
die Autoausfüüfunktion bis zur letzten Zeile durchnummerieren lassen.



probiers mal so:

Sub Nummerierung()
Dim LRow As Long

With Sheets("Stammdaten")
LRow = .Cells(Rows.Count, 3).End(xlUp).Row
.Cells(5, 1).Formula = "=Row(A1)"
.Cells(5, 1).AutoFill Destination:=.Range(.Cells(5, 1), _
.Cells(LRow, 1))
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