Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon CBundy vom 20.04.2019, 14:42 Options
Gleiche Zellen erkennen - dann automatisch Leerzeile einfügen
Hallo,
ich habe eine Liste, in der in Spalte "Material" Artikelnummern stehen. Manche nur einmal, manche mehrmals.
Excel soll nun automatisch immer nach gleichen Artikel-nummern zwei oder drei Leerzeichen machen. Das Problem ist, dass es ewig viele verschiedene Artikelnummern gibt.
Ich habe bisher folgendes Makro gebastelt:
(...)
For Material = Range("C65536").End(xlUp).Row To 1 Step -1
If Cells(Material, 3) = "1029001" Then
Rows(Material - 1).Insert Shift:=xlDown
Rows(Material - 1).Insert Shift:=xlDown
End If
End Sub
Das funktioniert, allerdings natürlich nur für eine Artikelnummer. Wie kann ich Excel beibringen, dass es Artikelnummern vergleicht, und immer nach einem Block mit gleichen Artikelnummern eine Leerzeile macht?
ich habe eine Liste, in der in Spalte "Material" Artikelnummern stehen. Manche nur einmal, manche mehrmals.
Excel soll nun automatisch immer nach gleichen Artikel-nummern zwei oder drei Leerzeichen machen. Das Problem ist, dass es ewig viele verschiedene Artikelnummern gibt.
Ich habe bisher folgendes Makro gebastelt:
(...)
For Material = Range("C65536").End(xlUp).Row To 1 Step -1
If Cells(Material, 3) = "1029001" Then
Rows(Material - 1).Insert Shift:=xlDown
Rows(Material - 1).Insert Shift:=xlDown
End If
End Sub
Das funktioniert, allerdings natürlich nur für eine Artikelnummer. Wie kann ich Excel beibringen, dass es Artikelnummern vergleicht, und immer nach einem Block mit gleichen Artikelnummern eine Leerzeile macht?
Antwort 1 von fedjo vom 20.04.2019, 15:29 Options
Hallo,
sind die Artikelnummern untereinander oder nebeneinander?
fedjo
Zitat:
drei Leerzeichen machen
drei Leerzeichen machen
sind die Artikelnummern untereinander oder nebeneinander?
fedjo
Antwort 2 von Beverly vom 20.04.2019, 19:40 Options
Hi,
du schreibst einmal, dass du mehrere Leerzeilen einfügen willst, dann aber dass es nur eine Leerzeile sein soll. Hier ein Code für eine Leerzeile
Bis später,
Karin
du schreibst einmal, dass du mehrere Leerzeilen einfügen willst, dann aber dass es nur eine Leerzeile sein soll. Hier ein Code für eine Leerzeile
Sub leerzeile_einfuegen()
Dim loLetzte As Long
Dim inI As Integer
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = IIf(IsEmpty(.Cells(Rows.Count, 3)), .Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)
inI = 1
Do While IsEmpty(.Cells(inI, 3)) = False
If .Cells(inI, 3).Value <> .Cells(inI + 1, 3) Then
Rows(inI + 1 & ":" & inI + 1).Insert
loLetzte = loLetzte + 1
inI = inI + 1
End If
inI = inI + 1
Loop
End With
Application.ScreenUpdating = True
End Sub
Bis später,
Karin
Ähnliche Themen
Zeile einfügen über einen bestimmten Wert
Rudi81 22.01.2007 - 87 Hits - 1 Antwort
Leerzeilen einfügen
MISSRAPIDOVS 22.02.2007 - 64 Hits -
Musik endlos einfügen in ppt.-Präsentation
Gabinka 13.03.2007 - 294 Hits -
2 Zellen in Tabellenblatt 1in Tabellenblatt 2 automatisch übernehmen
shayenne27 17.10.2007 - 90 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
