---

Hallo liebe User!

Ich habe folgendes Problem:

Mittels eines VBA Programmes, sollen in einer Excel Tabelle die letzte Zeile gesucht werden, in der ein bestimmter Wert enthalten ist. Es soll aber immer nur eine konstante Spalte auf diesen Wert hin untersucht werden. z.B.: Durchsuche ALLE Zeilen der Spalte C auf einen bestimmten Wert (z.B.: XY) und füge dort eine neue Zeile ein.

Vielen Dank für euere Hilfe!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mahlzeit,
wirklich VBA in Excel und nicht VB:

Code:

---

Public Sub AusdruckSuchen()
    Dim t As Integer, strAusdruck As String
   
        For t = Tabelle1.Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
            If Tabelle1.Cells(t, 3).Value = "xy" Then
                Tabelle1.Cells(t + 1, 3).EntireRow.Insert
                Exit For ' falls nach allen Übereinstimmungen eine Zeile eingefügt werden soll weglassen
            End If
        Next
End Sub

---

HTH
Gruß,
Nicole

[edit] Upps, Spalte C war gefragt  [/edit]
------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

[Diese Nachricht wurde von runkelruebe am 26. Jul. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo runkelruebe!!

Erstmal vielen Dank für die schnelle Antwort!!!
Hast mir schon etwas geholfen. Aber so ganz funktionierts noch nicht.
Wenn ich mit deinem Code in einer excel Tabelle die Beispielwerte xy in eine Spalte eingebe und dein Programm laufen lasse,passiert nix. Will heißen die Beispielwerte können wohl nicht gefunden werden.
Es wird auch keine Zeile eingefügt!
Keine Ahnung was ich falsch mache?!
Frust!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Zitat:

---

in eine Spalte eingebe

---

es muß Spalte C sein, .cells(t,3)
Groß und Kleinschreibung ist wichtig.
Aber anlaufen tut das Makro?

[edit] und es muß auf Tabelle1 passieren [/edit]
------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

[Diese Nachricht wurde von runkelruebe am 26. Jul. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja, durchlaufen tuts.
Hab dir mal meinen Code aufgeschrieben.
Zur Kontrolle hab nach jedem Schritt eine Printfunktion eingebaut, um zu sehen, ob die einzelnen Schritte durchlaufen werden.
Dabei wird "S2" nicht ausgegeben. Es hängt wohl an der If-Bedingung oder er findet "xy" in der Tabelle nicht.

xy wurde in der Tabelle in der Spalte c angegeben

For t = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
            Debug.Print ("S1")
            If Tabelle1.Cells(t, 3).Value = "xy" Then
            Debug.Print ("S2")
                'Tabelle1.Cells(t + 1, 3).EntireRow.Insert
                Exit For
                Debug.Print ("S3")
            End If
        Debug.Print ("S4")
        Next
        Debug.Print ("S5")
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

sorry, kann ich so nicht nachvollziehen, 
habe Deinen code kopiert und eingefügt, mit diesen debug.print kann ich nix anfangen  deshalb mal durch msgboxen ersetzt und bei mir läufts einwandfrei...
uppe mal Deine ganze Datei, bitte... oder schick' mail, hast gleich adresse als PM

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo!

Vielen Dank für deine Hilfe! Habs hinbekommen!
Hatte wohl das falsche Modul erwischt! 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP