Excel Makro - pls help! - Forum

Darksteel

My Fast thinks ...

Registered: Jul 2004
Location: AUT, Wiener Neud..
Posts: 1910

30.06.2006 - 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

Administrator
Legends never die

Registered: Aug 2003
Location: nö
Posts: 25539

30.06.2006 - 14:53

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

flocky

sn0wner (analphabet)

Registered: May 2002
Location: life-compiler
Posts: 1663

04.07.2006 - 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

Vereinsmitglied
SHODAN

Registered: Nov 2002
Location: 4C4
Posts: 19788

02.07.2013 - 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

Fünfzylindernazi

Registered: Nov 2002
Location: OÖ/RI
Posts: 5262

02.07.2013 - 09:21

Sowas?

Code:

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

daisho

Vereinsmitglied
SHODAN

Registered: Nov 2002
Location: 4C4
Posts: 19788

02.07.2013 - 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

Fünfzylindernazi

Registered: Nov 2002
Location: OÖ/RI
Posts: 5262

02.07.2013 - 10:47

Kompakter:

Code:

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

Darksteel My Fast thinks ... Registered: Jul 2004 Location: AUT, Wiener Neud.. Posts: 1910	30.06.2006 - 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 Administrator Legends never die Registered: Aug 2003 Location: nö Posts: 25539	30.06.2006 - 14:53 http://www.microsoft.com/downloads/...;displaylang=en
flocky sn0wner (analphabet) Registered: May 2002 Location: life-compiler Posts: 1663	04.07.2006 - 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 Vereinsmitglied SHODAN Registered: Nov 2002 Location: 4C4 Posts: 19788	02.07.2013 - 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 Fünfzylindernazi Registered: Nov 2002 Location: OÖ/RI Posts: 5262	02.07.2013 - 09:21 Sowas? Code: `Sheets("Sheet1").Activate ActiveSheet.UsedRange.Select`
daisho Vereinsmitglied SHODAN Registered: Nov 2002 Location: 4C4 Posts: 19788	02.07.2013 - 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 Fünfzylindernazi Registered: Nov 2002 Location: OÖ/RI Posts: 5262	02.07.2013 - 10:47 Kompakter: Code: `Dim TableStyleMedium2 As Range TableStyleMedium2 = Sheets("Tabelle1").UsedRange`

Excel Makro - pls help!

Forum Index > Software > Coding Stuff

Darksteel

mat

flocky

daisho

Obermotz

daisho

Obermotz