Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


VBA Excel LZ in Spalte einfügen,wenn Werte ungleich sind - bis zur ersten Leerzeile
#1
Guten Tag,

programmiere zum ersten mal ein Makro, und komme nicht mehr weiter.
Ich möchte in Spalte C die Werte vergleichen, und sobald der Wert ungleich ist, soll eine Leerzeile eingefügt werden.
Mit diesem Code klappt das super:

Sub Makro12()
'fügt Leerzeilen zwischen verschiedenen Lagerorten ein (Spalte C)

Dim r As Long, mcol As String, i As Long

r = Cells(Rows.Count, "C").End(xlUp).Row

mcol = Cells(r, 3).Value

For i = r To 2 Step -1
If Cells(i, 3).Value <> mcol Then
mcol = Cells(i, 3).Value
Rows(i + 1).Insert
End If
Next i
End Sub

Das Problem: Ich möchte nicht dass er alle Werte vergleicht,sondern nur die Werte bis zur ersten leeren Zelle.
Einfach aufzeichnen geht nicht,da die Tabellenlänge variiert.
Wäre für Antworten sehr dankbar Smile
Viele Grüße
Karin
to top
#2
Hallo,

füge mal folgende Zeile nach der for-Zeile ein:

Code:
If cells(i-1,3)="" then exit for

ist ungetestet.
Gruß


Opa Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Excel: Aus einer Spalte mehrere machen, Filtern, Zeitstempelzugehörigkeit Metal008 11 159 17.02.2017, 15:59
Letzter Beitrag: shift-del
  nur wenn spalte ="A", dann Formel... ravi 6 83 13.02.2017, 11:24
Letzter Beitrag: steve1da
  Doppelte Werte einfärben nur WENN Cherry 2 56 10.02.2017, 11:54
Letzter Beitrag: Cherry
  Zählen, wenn Bedingungen erfüllt sind liass 7 127 08.02.2017, 16:54
Letzter Beitrag: BoskoBiati
  Zahlen addieren, wenn Buchstaben enthalten sind Kaewien 12 234 07.02.2017, 17:53
Letzter Beitrag: snb
  Spalte hinzufügen - feste Werte im Code Naleor 8 135 06.02.2017, 16:21
Letzter Beitrag: Ego
Question Wenn ZelleA=Datum, dann=Tabelle/Spalte/Zelle Royle 3 100 28.01.2017, 20:23
Letzter Beitrag: Ego
  Werte in einer Zeile addieren bis Zielwert erreicht und verwendete Werte markieren hoteu 2 94 12.01.2017, 13:04
Letzter Beitrag: hoteu
  MW der letzten 5 Werte einer Spalte tröntken 6 134 05.01.2017, 07:57
Letzter Beitrag: tröntken
  Mehrere Werte in eine Zelle einfügen Faiko 2 125 02.01.2017, 17:44
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste