Thema Datum  Von Nutzer Rating
Antwort
Rot nur jede 10. Zeile und Spalte behalten
 29.06.2015 15:10:58 JuliaM
NotSolved
30.06.2015 19:46:57 Gast24741
NotSolved
30.06.2015 20:42:44 Gast81217
NotSolved
05.07.2015 14:39:19 Gast78396
NotSolved
08.07.2015 23:15:20 Gast87815
NotSolved

Ansicht des Beitrags:
Von:
JuliaM		 Datum:
29.06.2015 15:10:58		 Views:
1354		 Rating:
     
Antwort:
  Ja
Thema:
nur jede 10. Zeile und Spalte behalten

Ich kann leide rnicht gut programmieren und habe eine riesige Excel-Tabelle, bei der ich nur jeden zehnten wert brauche (1. Wert behalten und dann 9 löschen und das, solange Werte da sind). Das gilt sowohl für Zeilen als auch für Spalten. Ab Zeile und Spalte 2 beginnen die Werte.

Ich habe bereits ein Programm gefunden und umgeschrieben, aber es klappt nicht. kann mir bitte jemand helfen?

Sub Delete()
   With Tabelle1.UsedRange
      With .Columns(.Columns.Count).Offset(, 1)
         .Formula = "=IF(MOD(ROW()+1,10)*(ROW()>2),1,"""""""""")"
         .Value = .Value
         .EntireRow.Sort .Cells(1), xlAscending, Header:=xlNo
         On Error Resume Next
         .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete
         On Error GoTo 0
         .ClearContents
      End With
   End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot nur jede 10. Zeile und Spalte behalten
 29.06.2015 15:10:58 JuliaM
NotSolved
30.06.2015 19:46:57 Gast24741
NotSolved
30.06.2015 20:42:44 Gast81217
NotSolved
05.07.2015 14:39:19 Gast78396
NotSolved
08.07.2015 23:15:20 Gast87815
NotSolved