Thema Datum  Von Nutzer Rating
Antwort
Rot Aussortieren von Leeren Zeilen
 16.03.2011 11:28:25 GrennBayPacker
NotSolved
16.03.2011 14:51:53 Severus
NotSolved

Ansicht des Beitrags:
Von:
GrennBayPacker		 Datum:
16.03.2011 11:28:25		 Views:
1580		 Rating:
     
Antwort:
  Ja
Thema:
Aussortieren von Leeren Zeilen

Hallo Leute,

folgendes Problem: Ich habe 10 Zeilen Excel Tabelle, von denen nur etwa 3 belegt sind mit Werten. Ich möchte diese 3 mit Werten belegten nach Oben schieben, und Leere Zeilen nach unten verschieben (nicht löschen, werden gebraucht). Ich muss erlich sagen, ich verzweifle an diesem banalen Problem. Hat jmd eine Idee? Hab mir auch schon mal gedanken gemacht.. Aber mein Code funktioniert nicht so wirklich:

 

  

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim iNextRow As Integer
Dim booEmptyRow As Boolean
 
For intZaehler = 4 To lastCell
 
    If Cells(intZaehler, 1).Value <> Empty Then
 
        iNextRow = (intZaehler + 1)
 
        Do
 
            If Cells(iNextRow, 1).Value <> Empty Then
 
                iNextRow = iNextRow + 1
                booEmptyRow = True
                 
                 
                Else:
 
 
                Sheets("Bearbeitung").Rows(iNextRow).Cut
                Sheets("Bearbeitung").Rows(intZaehler).Insert
                booEmptyRow = False
 
                 
            End If
            If iNextRow = lastCell Then
            booEmptyRow = False
            End If
 
        Loop While booEmptyRow = True
         
 
    End If
 
Next intZaehler

 

 

Bin über jegliche Hilfe dankbar!

Lg GreenBayPacker

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Aussortieren von Leeren Zeilen
 16.03.2011 11:28:25 GrennBayPacker
NotSolved
16.03.2011 14:51:53 Severus
NotSolved