Clik here to view.
leere Zeilen einer Tabelle löschen
Gelegentlich hat man (oft bei Exporten aus Fremdsystemen) innerhalb der Tabelle ungewünschte Leerzeilen. vorher: nachher: Um diese schnell zu löschen verwende ich nachstehenden Code Sub...
View Articleletzte Spalte einer Zeile ermitteln
Um die letzte Spalte einer Zeile zu ermitteln nutze ich nachstehendes Makro Public Sub letzte_spalte_einer_zeile_ermitteln() Dim lspalte As Long 'Hier wird die letzte Spalte der Zeile 1 ermittelt...
View ArticleZeile löschen wenn Spalte A leer ist
In einem Tabellenblatt sollen alle Zeilen gelöscht werden, wenn in Spalte A nichts steht. Dazu nutze ich diesen Code: Sub Loeschen_wenn_Spalte_A_leer() Application.ScreenUpdating = False Dim zeile As...
View ArticleZeilen deren Inhalt in einer bestimmten Spalte einen Suchtext enthält löschen
Um in einer Tabelle Zeilen zu löschen, deren Inhalt einer bestimmten Spalte (in meinem Beispiel Spalte A) einen bestimmten Text beinhalten nutze ich nachstehenden Code: Sub...
View ArticleAlle Zeilen und Spalten eines Tabellenblattes einblenden
Um alle evtl. ausgeblendeten Zeilen bzw. Spalten eines Tabellenblattes einzublenden nutze ich nachstehenden Code Sub Zeilen_und_Spalten_einblenden() With ActiveSheet.Cells .EntireColumn.Hidden =...
View Article