Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro zum Zeilen einfügen wenn Zahl von 0 auf 1 wechselt
zurück: Balkendiagramm weiter: Diagrammtitel Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
chem_zor
Gast


Verfasst am:
15. Jan 2014, 12:13
Rufname:

Makro zum Zeilen einfügen wenn Zahl von 0 auf 1 wechselt - Makro zum Zeilen einfügen wenn Zahl von 0 auf 1 wechselt

Nach oben
       

Hallo Community,

ich habe ein Problem und werde einfach nicht fündig.

Ich habe >5000 Zeilen in meiner Tabelle in Spalte W habe ich eine Art Vorsortierung.

In dieser stehen Beispielsweise folgende Zahlen:

1
0
1
1
0
0
0
1
0

Ich bräuchte eine neue leere Zeile wenn die Zahl von 0 auf 1 springt

also:

1
0

1

1
0
0
0

1
0

Wie wäre das zu bewerkstelligen? Ich habe schon in englischsprachigen Foren gesucht oder nur ein Makro gefunden, welches in VBA geschrieben ist. Leider bringt mich das alles nicht weiter.

Danke für eure Hilfe.
Pegaso
Office-Programmierer


Verfasst am:
15. Jan 2014, 15:35
Rufname:
Wohnort: Damme

AW: Makro zum Zeilen einfügen wenn Zahl von 0 auf 1 wechselt - AW: Makro zum Zeilen einfügen wenn Zahl von 0 auf 1 wechselt

Nach oben
       

Hi chem_zor,

versuch dieses Makro mal:
Code:
Sub Main()
    Mach_Leerzeilen_wenn_null_eins_Uebergang
End Sub

Sub Mach_Leerzeilen_wenn_null_eins_Uebergang()
    Dim tabellenblatt
    Dim Zelle
    Dim Zelle_vergleich
    Dim str_Zelleninhalt As String
    Dim str_Zelleninhalt_vergleich As String
    Dim i As Long

    tabellenblatt = ThisComponent.Sheets(0)
    For i = 1 To 1048566
        Zelle = tabellenblatt.getCellByPosition(22, i)
        str_Zelleninhalt = Zelle.String
        If (str_Zelleninhalt = "") Then Exit For
        If (str_Zelleninhalt = "1") Then
        Zelle_vergleich = tabellenblatt.getCellByPosition(22, i - 1) ' Spalte , Zeile
            str_Zelleninhalt_vergleich = Zelle_vergleich.String
            If (str_Zelleninhalt_vergleich = "0") Then
                tabellenblatt.GetRows().InsertByIndex(i,1)
            End If
        End If
    Next i
End Sub
Spalte W sollte die 22.Spalte sein.
Vllt. etwas "spielen"

Gruß
chem_zor
Gast


Verfasst am:
16. Jan 2014, 15:45
Rufname:


AW: Makro zum Zeilen einfügen wenn Zahl von 0 auf 1 wechselt - AW: Makro zum Zeilen einfügen wenn Zahl von 0 auf 1 wechselt

Nach oben
       

Hallo Pegaso,

ich habe gerade keine Möglichkeit es zu testen, danke dir aber schon mal ganz sehr für deine Mühen!!!

Ich werde berichten!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Anwendungsübergreifende Fragen: RDP: Excel-Tabellen in Word einfügen - Darstellungsproblem 0 bjoerg75 107 08. Apr 2014, 12:09
bjoerg75 RDP: Excel-Tabellen in Word einfügen - Darstellungsproblem
Keine neuen Beiträge Anwendungsübergreifende Fragen: Bookmark PDF kopieren und in root einfügen! 1 rih0815 89 21. Jan 2014, 16:20
G.O.Tuhls Bookmark PDF kopieren und in root einfügen!
Keine neuen Beiträge Anwendungsübergreifende Fragen: Ein Makro mit einem anderen Makro starten 1 Mung der Dritte 87 01. Okt 2013, 10:23
maninweb Ein Makro mit einem anderen Makro starten
Keine neuen Beiträge Anwendungsübergreifende Fragen: Excel Tabelle in Word einfügen 2 Kebsmi 395 27. Jan 2013, 18:35
Kebsmi Excel Tabelle in Word einfügen
Keine neuen Beiträge Anwendungsübergreifende Fragen: Excel Vorlage in Word einfügen und mit VBA aufrufen 0 theoS 295 10. Jan 2013, 12:18
theoS Excel Vorlage in Word einfügen und mit VBA aufrufen
Keine neuen Beiträge Anwendungsübergreifende Fragen: Office 2003 auf 2010 Makro Probleme mit Selection.Range. 0 July981 287 13. Nov 2012, 12:27
July981 Office 2003 auf 2010 Makro Probleme mit Selection.Range.
Keine neuen Beiträge Anwendungsübergreifende Fragen: Schnelligkeit Makro in Office, Mehrkern-Prozessor, ... 9 s 1719 10. Aug 2011, 10:31
mumpel Schnelligkeit Makro in Office, Mehrkern-Prozessor, ...
Keine neuen Beiträge Anwendungsübergreifende Fragen: Office Word / Excel Makro DRUCKEN mit Kopie und Pfadangabe 5 BrunkJa 3928 03. Nov 2009, 16:36
Willi Wipp Office Word / Excel Makro DRUCKEN mit Kopie und Pfadangabe
Keine neuen Beiträge Anwendungsübergreifende Fragen: Mehrere Zeilen in 1 Zeile zusammen fassen mit Zeilenumbrüche 0 Sodeli 909 24. Sep 2008, 09:59
Sodeli Mehrere Zeilen in 1 Zeile zusammen fassen mit Zeilenumbrüche
Keine neuen Beiträge Office 2007 Forum: Wie Makro nach Umstellung von xls auf xlsm aktiviereren? 2 Gast 4855 21. Jul 2008, 12:53
rivasol Wie Makro nach Umstellung von xls auf xlsm aktiviereren?
Keine neuen Beiträge Anwendungsübergreifende Fragen: Uhrzeit in Zahl umwandeln 1 Terminal 3833 08. März 2008, 20:28
< Peter > Uhrzeit in Zahl umwandeln
Keine neuen Beiträge Anwendungsübergreifende Fragen: Exceltabellengröße für Einfügen in Powerpoint 0 trojax 2115 08. Jan 2008, 12:57
trojax Exceltabellengröße für Einfügen in Powerpoint
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum