Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
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
  Zeilen kopieren wenn Spalte A nicht leer ist Safety-Tussi 2 30 22.03.2017, 11:31
Letzter Beitrag: Safety-Tussi
  Wenn 3 Kriterien erfüllt, dann zeige alle Werte Dschules 11 126 15.03.2017, 14:11
Letzter Beitrag: Gast 123
  fehlende Daten (Datum) in Datensatz einfügen und dabei Zellen einfügen fredo2611 4 79 14.03.2017, 10:02
Letzter Beitrag: fredo2611
  Noch nicht vorhandene externe Dateien ohne "Werte aktualisieren" einfügen paul_1001 1 63 03.03.2017, 06:22
Letzter Beitrag: BoskoBiati
  Excel: Aus einer Spalte mehrere machen, Filtern, Zeitstempelzugehörigkeit Metal008 11 303 17.02.2017, 15:59
Letzter Beitrag: shift-del
  nur wenn spalte ="A", dann Formel... ravi 6 126 13.02.2017, 11:24
Letzter Beitrag: steve1da
  Doppelte Werte einfärben nur WENN Cherry 2 94 10.02.2017, 11:54
Letzter Beitrag: Cherry
  Zählen, wenn Bedingungen erfüllt sind liass 7 207 08.02.2017, 16:54
Letzter Beitrag: BoskoBiati
  Zahlen addieren, wenn Buchstaben enthalten sind Kaewien 12 322 07.02.2017, 17:53
Letzter Beitrag: snb
  Spalte hinzufügen - feste Werte im Code Naleor 8 196 06.02.2017, 16:21
Letzter Beitrag: Ego

Gehe zu:


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