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ß


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 Zusammenzählen mit Suchkriterium in einer anderen Spalte EDmen 6 64 Gestern, 20:49
Letzter Beitrag: EDmen
Sad Makro automat. Verknuepfung aktualis. aber dateien sind Kennwort geschuetzt FR-CGI 2 45 02.12.2016, 10:03
Letzter Beitrag: FR-CGI
  Werte auflisten wenn Bedingung erfüllt Randall Flagg 3 63 26.11.2016, 15:29
Letzter Beitrag: Randall Flagg
  Werte in Excel dauerhaft speichern (loggen) Höpp 3 75 25.11.2016, 20:46
Letzter Beitrag: schauan
  Zeilen kopieren und mit Formeln und Format, aber ohne Werte einfügen Peter Pan 7 115 18.11.2016, 08:17
Letzter Beitrag: Kuwer
  wenn in tabelle wert in spalte dann neue spalte in neuer tabelle merzens 4 89 16.11.2016, 13:44
Letzter Beitrag: schauan
  Summe wenn Zellen befüllt sind Nightshift 2 76 13.11.2016, 21:17
Letzter Beitrag: Nightshift
  Werte in Spalte auseinanderziehen JanReiff 1 58 01.11.2016, 13:54
Letzter Beitrag: Peter
  Werte in einem Bereich addieren wenn Bedingung erfüllt Rudi12345 1 68 26.10.2016, 15:46
Letzter Beitrag: Luffy
  KKLEINSTE und Werte aus andere Spalte Udo 10 238 16.10.2016, 19:16
Letzter Beitrag: Udo

Gehe zu:


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