Excel Makro - pls help!

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/excel_makro_pls_help_165116/page_1 - zur Vollversion wechseln!

Darksteel schrieb am 30.06.2006 um 13:48

Huhu,
ich bräuchte ein Makro für Excel, das mir Zeilen rauslöscht.
Beginn ist in der 4. Spalte, ab dann immer 5 Spalten weiter & löschen & 5 Spalten weiter & löschen und und und...

tia

Darksteel

mat schrieb am 30.06.2006 um 14:53

http://www.microsoft.com/downloads/...;displaylang=en

flocky schrieb am 04.07.2006 um 08:21

Code:

Private Sub loeschen()
Set wksData = ActiveSheet
  With wksData
    nRowsCnt = .UsedRange.Rows.Count
  End With
  MsgBox nRowsCnt
  For nRow = 1 To nRowsCnt Step 5
    With wksData
        .Rows(nRow).EntireRow.Delete
    End With
  Next nRow
End Sub

hth
anpassen musst es selber

daisho schrieb am 02.07.2013 um 09:18

Ich bräuchte ein bisschen Hilfe bei einem Excel Makro, irgendwie finde ich nicht wirklich passendes über Google

Ich müsste nur mittels Range(...) (oder wie auch immer) alle Zeilen und Spalten einer Tabelle markieren.
(Also quasi was man mit Strg + A in einer Selektion erreicht )

Die Daten werden dann halt mit .TableStyle formatiert. Wenn ich absolut markiere, also über bsp. Range("A1:J999") werden halt klarerweise auch alle Zeilen bis Hausnummer 999 mit-formatiert (auch wenn sie keine Daten enthalten) und sind dann für die Sortierfunktion inkludiert

Ich bin zwar schon über die Funktion .UsedRange.Rows.Count gestolpert bin aber leider irgendwie unfähig das zu integrieren.

Obermotz schrieb am 02.07.2013 um 09:21

Sowas?

Code:

Sheets("Sheet1").Activate
ActiveSheet.UsedRange.Select

daisho schrieb am 02.07.2013 um 10:01

Ich habs jetzt gelöst indem ich dem Bereich einen Namen gegeben habe:

Code:

Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range(Selection, Selection.End(xlDown)), , xlYes).Name = _
     "Tabelle1"
    Range("Tabelle1[#All]").Select
    ActiveSheet.ListObjects("Tabelle1").TableStyle = "TableStyleMedium2"

Obermotz schrieb am 02.07.2013 um 10:47

Kompakter:

Code:

Dim TableStyleMedium2 As Range
TableStyleMedium2  = Sheets("Tabelle1").UsedRange