Macro ausführen in VBA nach Zellen inhalt

Hallo zusammen,
hier meine erste Frage an euch, da ich meine Probleme in Excel bzw. VBA bis dato über Google gelöst habe. Da ich VBA Anfänger (mit 60 Jahren) bin habe ich folgendes Problem.
Ich habe eine Tabelle max. mit 9 Zeilen ohne überschriften. Dort möchte ich, über ein Macro, Zellen in der Spalte B von oben nach unten die Inhalte vergleichen und wenn der Inhalt sich ändert die dazu passende Zeile makieren und dann ein Marco ausführen (das ich bereits benutze) das oberhalb der makierten Zeile eine Neue Zeile einfügt und mit formeln und werte befüllt.
Dann den Vorgang an der gefundenen Stelle in Spalte B fortfahren bis zu ersten Zelle die leer ist.
Ich hoffe das war einiger Maßen verständlich.
Bis dato. habe ich die Zellen immer per Hand makiert und das Macro gestartet, Da das aber die einzigste Eingabe ist die noch nicht automatisiert habe, möchte ich dies nun ändern, bin aber an meine Grenzen angekommen und hoffe hier Hilfe zu finden.
gruß Norbert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub zeileeinfuegen() Dim Zeile As Long, wks As Worksheet Dim varWert As Variant Set wks = ActiveSheet With wks Zeile = 1 varWert = .Cells(Zeile, 2).Value Do Zeile = Zeile + 1 If varWert .Cells(Zeile, 2).Value Then varWert = .Cells(Zeile, 2).Value .Rows(Zeile).Select Call Norberts_Makro 'ersetzen durch Name deines vorhandenen Makros Zeile = Zeile + 1 End If If IsEmpty(varWert) Then Exit Do Loop End With End Sub

Sub zeileeinfuegen() Dim zeile As Long, Spalte As Long, wks As Worksheet Dim varWert As Variant Set wks = ActiveSheet With wks zeile = 15 '1. Datenzeile Spalte = 2 'Spalte "B" - Nummer der zu durchsuchenden Spalte varWert = .Cells(zeile, Spalte).Value If IsEmpty(varWert) Then MsgBox "Die Startzelle ""B15"" ist leer!", vbOKOnly + vbInformation, _ "Zeilen einfügen!" Exit Sub End If Do zeile = zeile + 1 If varWert .Cells(zeile, Spalte).Value Then varWert = .Cells(zeile, Spalte).Value If IsEmpty(varWert) Then Exit Do .Rows(zeile).Select Call Norberts_Makro 'ersetzen durch Name deines vorhandenen Makros zeile = zeile + 1 End If Loop End With End Sub

Hallo Franz,
vielen Dank für deine Hilfe
Funktioniert Super, habe nur noch eine Zeile im Code einfügen müßen, da das Projekt beendet werden muß, sobald die Abfragezelle leer ist.
Funktioniert jetzt 100% korrekt.
Hast mir sehr geholfen 1000 Dank
Gruß Norbert

Sub ZeilenEinfügen()
Dim zeile As Long, Spalte As Long, wks As Worksheet
Dim varWert As Variant
Set wks = ActiveSheet
With wks
zeile = 15 '1. Datenzeile
Spalte = 2 'Spalte "B" - Nummer der zu durchsuchenden Spalte
varWert = .Cells(zeile, Spalte).Value
If IsEmpty(varWert) Then
MsgBox "Die Startzelle ""B15"" ist leer!", vbOKOnly + vbInformation, _
"Zeilen einfügen!"
Exit Sub
End If
Do
zeile = zeile + 1
If Cells(zeile, Spalte).Value = "" Then Exit Sub 'Abbruch da Zelle leer
If varWert  .Cells(zeile, Spalte).Value Then
varWert = .Cells(zeile, Spalte).Value
If IsEmpty(varWert) Then Exit Do
.Rows(zeile).Select
Call Ladeort_Einfügen 'ersetzen durch Name deines vorhandenen Makros
zeile = zeile + 1
End If
Loop
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Macro ausführen in VBA nach Zellen inhalt

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Macro ausführen in VBA nach Zellen inhalt

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread