Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten löschen und Spalte neu numerieren

Daten löschen und Spalte neu numerieren
02.09.2005 11:14:46
bongiu
Hallo lieber Helfer,
ich habe der Code:

Private Sub Daten_löschen_Click()
'Auf
If TextBox2 = "" Then
MsgBox "Name Fehlt....."
TextBox2.SetFocus
Exit Sub
End If
ActiveCell.Select
Dim irisposta As Integer
irisposta = MsgBox("lösche Daten von: " & ActiveCell.Value & " ?", vbYesNo)
If irisposta = vbYes Then
ActiveCell.EntireRow.Delete
Dim CA As Object
Range("A3:A10000").ClearContents
Range("A3").Value = 1
For Each CA In Range("A3:A10000")'*****
If CA.Offset(1, 0) = "" Then
CA.Offset(1, 0) = CA + 1
End If
Next
End If
'Zu
Dim f As Integer
For f = 1 To 20
Controls("TextBox" & f) = ""
Next
MsgBox "  Gelöscht!!! "
End Sub

Ich möchte die Spalte neu numerieren NUR BIS LETZTE ZELLE DIE DATEN ENTHÄLT.
und nicht bis A10000
Weiss jemand Rat?
Danke
Bongiu

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten löschen und Spalte neu numerieren
02.09.2005 11:27:09
Ralf
Hi Bongiu,
Dim lz#
lz = UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Row
For Each CA in Range("A1:A" & lz)
Ciao, Ralf
AW: Daten löschen und Spalte neu numerieren
02.09.2005 11:50:36
bongiu
Danke RALF
Ich habe dein Code so eingefügt:

Private Sub Daten_löschen_Click()
'Auf
If TextBox2 = "" Then
MsgBox "Name Fehlt....."
TextBox2.SetFocus
Exit Sub
End If
ActiveCell.Select
Dim irisposta As Integer
irisposta = MsgBox("lösche Daten von: " & ActiveCell.Value & " ?", vbYesNo)
If irisposta = vbYes Then
ActiveCell.EntireRow.Delete
Dim CA As Object
Range("A3:A10000").ClearContents
Range("A3").Value = 1
Dim lz#
lz = UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Row
For Each CA in Range("A1:A" & lz)
If CA.Offset(1, 0) = "" Then
CA.Offset(1, 0) = CA + 1
End If
Next
End If
'Zu
Dim f As Integer
For f = 1 To 20
Controls("TextBox" & f) = ""
Next
MsgBox "  Gelöscht!!! "
End Sub

und.........Error: Objekt erforderlich?
Warum
Ciao
Bongiu
Anzeige
AW: Daten löschen und Spalte neu numerieren
02.09.2005 12:27:30
bongiu
Danke RALF
Ich habe dein Code so eingefügt:

Private Sub Daten_löschen_Click()
'Auf
If TextBox2 = "" Then
MsgBox "Name Fehlt....."
TextBox2.SetFocus
Exit Sub
End If
ActiveCell.Select
Dim irisposta As Integer
irisposta = MsgBox("lösche Daten von: " & ActiveCell.Value & " ?", vbYesNo)
If irisposta = vbYes Then
ActiveCell.EntireRow.Delete
Dim CA As Object
Range("A3:A10000").ClearContents
Range("A3").Value = 1
Dim lz#
lz = UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Row
For Each CA in Range("A1:A" & lz)
If CA.Offset(1, 0) = "" Then
CA.Offset(1, 0) = CA + 1
End If
Next
End If
'Zu
Dim f As Integer
For f = 1 To 20
Controls("TextBox" & f) = ""
Next
MsgBox "  Gelöscht!!! "
End Sub

und.........Error: Objekt erforderlich?
Warum
Ciao
Bongiu
Anzeige
AW: Daten löschen und Spalte neu numerieren
02.09.2005 13:09:46
Ralf
Hallo Bongiu,
wozu brauchst Du hier unbedingt ein Error Objekt? Wenn Du Fehler umgehen willst, reicht auch die On Error Resume Next Anweisung.
Ach ja, sorry, hatte aus Deinem A3 ein A1 gemacht...
Ciao, Ralf
AW: Daten löschen und Spalte neu numerieren
02.09.2005 13:33:52
bongiu
Hallo Ralf

funkt troztdem nicht
Der Code läuft bis
lz = UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Row
und dann kommt Error '424' : Objekt erforderlich...
Ralf, kannst du der Code bei dir laufen lassen?
Danke für dein Geduld
Bongiu
AW: Daten löschen und Spalte neu numerieren
02.09.2005 13:51:15
Ralf
Hallo Bongiu,
deklariere mal CA nicht als Objekt, sondern als Variant.
Ciao, Ralf
AW: Daten löschen und Spalte neu numerieren
02.09.2005 14:03:16
bongiu
Hallo Ralf
keine Änderung: funkt non nicht!
Immer der gleiche Error
Ciao
bongiu
Anzeige
AW: Daten löschen und Spalte neu numerieren
02.09.2005 14:08:24
Ralf
....schick das Ding mal rüber. Ich seh's mir mal genauer an.
Ciao, Ralf
AW: Daten löschen und Spalte neu numerieren
02.09.2005 15:38:54
bongiu
Danke
Ralf
habe geschafft!!!
frag mich nicht wie!!!!!!!!!!
ciao
und danke nochmal

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige