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
  Werte in einer Zeile addieren bis Zielwert erreicht und verwendete Werte markieren hoteu 2 49 12.01.2017, 13:04
Letzter Beitrag: hoteu
  MW der letzten 5 Werte einer Spalte tröntken 6 92 05.01.2017, 07:57
Letzter Beitrag: tröntken
  Mehrere Werte in eine Zelle einfügen Faiko 2 86 02.01.2017, 17:44
Letzter Beitrag: schauan
  VERGLEICH nur mit ersten 6 Stellen heiner.bremer 8 123 13.12.2016, 11:04
Letzter Beitrag: BoskoBiati
Exclamation Problem:Zwei Spalten vergleichen wenn wahr dann bereich kopieren und einfügen CherryX 5 109 12.12.2016, 09:18
Letzter Beitrag: steve1da
Question EXCEL 2003: Durch anklicken - Automatisch bestimme Zahl einfügen M.Fritsch69 17 322 11.12.2016, 12:09
Letzter Beitrag: M.Fritsch69
  Werte Zusammenzählen mit Suchkriterium in einer anderen Spalte EDmen 6 123 05.12.2016, 20:49
Letzter Beitrag: EDmen
Sad Makro automat. Verknuepfung aktualis. aber dateien sind Kennwort geschuetzt FR-CGI 2 73 02.12.2016, 10:03
Letzter Beitrag: FR-CGI
  Werte auflisten wenn Bedingung erfüllt Randall Flagg 3 156 26.11.2016, 15:29
Letzter Beitrag: Randall Flagg
  Werte in Excel dauerhaft speichern (loggen) Höpp 3 152 25.11.2016, 20:46
Letzter Beitrag: schauan

Gehe zu:


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