Zeilen und Spalten einer Tabelle löschen

Hallo zusammen!
Ein Makro generiert mir eine Tabelle bei der die Anzahl der Spalten varieren kann. Wenn der Anwender einen Zeitraum vom 01.01 bis 06.01 angibt dann wären das 6 Spalten. Beim nächsten mal gibt er den Zeitraum vom 01.01 bis 08.01 an und somit wären es 8 Spalten.
Da ich als nächsten ein Diagramm einfügen muss würde ich gerne wegen der Übersichtlichkeit innerhalb dieser Tabelle alle "leeren" Spalten und Zeilen löschen lassen.
Ich habe mal ein Beispiel einer generierten Tabelle hochgeladen. In diesem Fall müssten die Spalten C, E und F sowie die Zeilen 5, 8, 9, 10, 11 und 13 gelöscht werden.
https://www.herber.de/bbs/user/38270.xls
Lässt sich so etwas durch eine Logik überhaupt realisieren?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo nochmal,
kommst du damit klar?

Sub Tabelle_richten()
Dim intSpalte As Integer
Dim lngZeile As Long
'Ausgehend von der letzten Spalte (IV) wird mit der Funktion End(xlToLeft)
'die letzte belegte Spalte ermittelt. In der For...Next-Schleife werden dann
'die Spalten von hinten nach vorne abgeklappert, indem der Schleifenzähler
'intSpalte bei jedem Durchlauf um 1 vermindert wird.
For intSpalte = Range("IV1").End(xlToLeft).Column To 2 Step -1
   'Nun wird geprüft, ob die Spalte leer ist. Dies ist der Fall wenn, ausgehend
   'von Zeile 1 der Spalte mit der Funktion End(xlDown) die Zeile erreicht wird,
   'in deren erster Spalte "Gesamt" steht.
   If Cells(1, intSpalte).End(xlDown).Offset(0, -(intSpalte - 1)) = "Gesamt" Then
      'Wenn Spalte leer, diese löschen.
      Cells(1, intSpalte).EntireColumn.Delete
   End If
Next 'intSpalte
'Analog zu den Spalten wird nun die letzte Zeile gesucht. Da hier aber eine
'Summenzeile "im Weg" ist, darf die Funktion End(xlUp) nicht von der letzten Zeile
'ausgehen, sondern muss von der Summenzeile ausgehen. Dann werden auch hier,
'analog zu den Spalten die Zeilen von unten nach oben abgeklappert.
For lngZeile = Range("A:A").Find(What:="Gesamt").End(xlUp).Row To 3 Step -1
   'Analog zu den Spalten prüfen, ob die Zeile leer ist. Dies ist der Fall wenn,
   'ausgehend von der ersten Spalte, mit der Funktion End(xlToRight) die letzte
   'Spalte (Spaltennummer 256) erreicht wird.
   If Cells(lngZeile, 1).End(xlToRight).Column = 256 Then
      'Wenn Zeile leer, diese löschen.
      Cells(lngZeile, 1).EntireRow.Delete
   End If
Next 'lngZeile
End Sub

Gruß Ingolf

Sub SaeulenDiagrammZeichen() Dim rngDaten As Range Dim MaxCol As Integer Dim MaxRow As Long MaxRow = Cells(Columns("A:A").Find(What:="Gesamt").Row, 1).End(xlUp).Row MaxCol = Cells(1, 256).End(xlToLeft).Column Set rngDaten = Range(Cells(1, 1), Cells(MaxRow, MaxCol)) rngDaten.Select Charts.Add With ActiveChart .ChartType = xlColumnStacked .SetSourceData Source:=rngDaten, PlotBy:=xlRows .HasAxis(xlCategory, xlPrimary) = True .HasAxis(xlValue, xlPrimary) = True .Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale End With ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1" Range("A1").Select End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen und Spalten einer Tabelle löschen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen und Spalten einer Tabelle löschen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread