InputBox und Zeilen löschen

Hallo in die Runde
Ich habe folgenden Code, bei dem der Nutzer eine Spalte auswählen kann und dann anhand dieser Spalte die leeren Zeilen gelöscht werden.


Sub LeereZeilenLöschen()
Dim i As Integer, rws As Long, spalte As Integer
spalte = InputBox("Welche ist Ihre Referenzspalte?")
rws = Cells(rows.Count, Columns(spalte)).End(xlUp).Row
For i = rws To 1 Step (-1)
If IsEmpty(Cells(i, 1)) = True Then
rows(i).Delete
End If
Next
End Sub

Am liebsten wäre mir, wenn der Nutzer nicht die Spaltennummer, sondern den Buchstaben der Spalte eingeben kann.
Ich freue mich auf Eure Hilfe
VG Michel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub LeereZeilenLöschen() Dim i As Integer, rws As Long, spalte spalte = InputBox("Welche ist Ihre Referenzspalte?") If Not IsNumeric(spalte) Then spalte = Range(spalte & "1").Column rws = Cells(Rows.Count, Columns(spalte)).End(xlUp).Row For i = rws To 1 Step (-1) If IsEmpty(Cells(i, 1)) = True Then Rows(i).Delete End If Next End Sub

Sub LeereZeilenLöschen() Dim i As Integer, rws As Long, spalte As String spalte = InputBox("Welche ist Ihre Referenzspalte?") If Not IsNumeric(spalte) Then spalte = Range(spalte & "1").Column rws = Cells(Rows.Count, CLng(spalte)).End(xlUp).Row For i = rws To 1 Step (-1) If IsEmpty(Cells(i, 1)) = True Then Rows(i).Delete End If Next End Sub

Sub LeereZeilenLöschen() Dim i As Integer, rws As Long, spalte As String Application.ScreenUpdating = False spalte = InputBox("Welche ist Ihre Referenzspalte?") If Not spalte = vbNullString Then If Not IsNumeric(spalte) Then spalte = Range(spalte & "1").Column rws = Cells(Rows.Count, CLng(spalte)).End(xlUp).Row For i = rws To 1 Step (-1) If IsEmpty(Cells(i, CLng(spalte))) Then Rows(i).Delete End If Next End If End If End Sub

Sub DelRows() Dim Spalte As Variant, C As Range Spalte = InputBox("Welche ist Ihre Referenzspalte?") On Error Resume Next Set C = Cells(1, Spalte).EntireColumn On Error GoTo 0 If Not C Is Nothing Then If WorksheetFunction.CountBlank(C) > 0 Then C.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End If Set C = Nothing End If End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

InputBox und Zeilen löschen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread