VBA alle Zellen mit Inhalt als Tabelle formatieren

Sub A_SelectAllMakeTable() Dim tbl As ListObject Dim rng As Range Set rng = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)) Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes) tbl.TableStyle = "TableStyleMedium15" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub DeleteBlankRows() Dim R As Long Dim c As Range Dim n As Long Dim rng As Range On Error GoTo skip Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If Selection.Rows.Count > 1 Then Set rng = Selection Else Set rng = ActiveSheet.UsedRange.Rows End If n = 0 For R = rng.Rows.Count To 1 Step -1 If Application.WorksheetFunction.CountA(rng.Rows(R).EntireRow) = 0 Then rng.Rows(R).EntireRow.Delete n = n + 1 End If Next R skip: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic first = Selection.Column last = Selection.Columns(Selection.Columns.Count).Column For I = last To first Step -1 If WorksheetFunction.CountBlank(ActiveSheet.Columns(I)) = 1048576 Then Columns(I).Delete End If Next I End Sub

Hallo
Hier der Programmm Code. Einfach in ein normales Modul kopieren und ausprobieren.
Am besten zuerst in einer eigenen kleinen Beispiel Datei oder einer Kopie der Original Datei.
Würde mich freuen wenn es klappt. (Meine Beispiel Datei war versehentlich falsch formatiert)
Die letzte Zeile und Spalte bitte manuell aendern. Zur Zeit 10.000 Zeilen, 100 Spalten
'Leere Zeilen und Spalten in Datenbanken -rückwaerts- löschen 25.5.2014
'ein -umgekehrtes Programm-, weils den Laufzeit Fehler auswertet!!
'Anfrage: Sioo Betreff: VBA alle Zellen mit Inhalt als Tabelle formatieren
Const LastRow = 10000 '65535 Zeilen
Const LastCol = 100 '256 Spalten
'Rückwaertschleife Programm mit SpecialCells(Contents)
'gelöscht wird in dem Fall über Fehler: -keine Zellen- mit Werten gefunden

Sub LeereZeilen_undSpalten_löschen()
'  Sheets("Tabelle1").Select
Application.ScreenUpdating = False
On Error GoTo ClrRow
'Rückwaertschleife SpecialCells(Contents)
For i = LastRow To 1 Step -1
Rows(i).Select    '** nur zum Test
wert = Rows(i).SpecialCells(xlContents).Count
Next i
On Error GoTo ClrCol
For i = LastCol To 1 Step -1
Columns(i).Select   '** nur zum Test
wert = Columns(i).SpecialCells(xlContents).Count
Next i
Exit Sub
'gelöscht wird bei Laufzeitfehler:  -keine Zellen gefunden-
ClrRow:  'kein Wert gefunden ; löschen
Rows(i).Delete Shift:=xlUp
Resume Next
ClrCol:  'kein Wert gefunden ; löschen
Columns(i).Delete Shift:=xlToLeft
Resume Next
End Sub

Gruss Adis

Beliebteste Forumthreads (12 Monate)

VBA alle Zellen mit Inhalt als Tabelle formatieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

35 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA alle Zellen mit Inhalt als Tabelle formatieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

35 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread