Eintrag suchen, unterhalb neue Zeile mit Text einfügen

Sub ZeilePlus_Einsetzen() Dim Was$, c, fA Was = "TEXT" With ActiveSheet.Cells Set c = .Find(Was, LookIn:=xlValues) If Not c Is Nothing Then fA = c.Address Do Rows(c.Row + 1).Insert Shift:=xlDown Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address > fA End If End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Suchen(gesuchteText As String) Dim Quelle As Range Dim WS As Worksheet Dim Erg As Range Const cGesuchteText = "TEXT" Set Quelle = Worksheets("Tabelle1").Range("A2:D2") For Each WS In ThisWorkbook.Worksheets Set Erg = Nothing Set Erg = WS.Cells.Find(What:=cGesuchteText, LookIn:=xlValues) If Not Erg Is Nothing Then Erg.EntireRow(2).Insert Shift:=xlDown Quelle.Copy Erg.Range("A2").Paste Application.CutCopyMode = False End If Next End Sub

Sub test() Dim sh As Worksheet Dim WAS As String Dim FirstFound As String Dim c As Range Dim EinfügeZeile As Range Set EinfügeZeile = Sheets("Tabelle1").Rows(1) 'Zeile, die eingefügt werden soll EinfügeZeile.Copy WAS = "TEXT" For Each sh In ActiveWindow.SelectedSheets With sh Set c = .Cells.Find(what:=WAS, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then FirstFound = c.Address Do EinfügeZeile.Copy .Rows(c.Row + 1).Insert Set c = .Cells.FindNext(c) Loop Until c.Address = FirstFound End If End With Next End Sub

Private Sub Suchen(gesuchteText As String) Dim Quelle As Range Dim WS As Worksheet Dim Erg As Range Const cGesuchteText = "TEXT" Set Quelle = Worksheets("Tabelle1").Range("A2:D2") For Each WS In ThisWorkbook.Worksheets If WS.Name > "Tabelle1" Then Set Erg = Nothing Set Erg = WS.Cells.Find(What:=cGesuchteText, LookIn:=xlValues) If Not Erg Is Nothing Then Erg.EntireRow(2).Insert Shift:=xlDown Quelle.Copy Erg.Range("A2").PasteSpecial xlPasteAll Application.CutCopyMode = False End If End If Next End Sub

Sub such() Dim Quelle As Range Dim WS As Worksheet Dim Erg As Range Const cGesuchteText = "TEXT" Set Quelle = Worksheets("Tabellenbalttname").Range("A2:D2") For Each WS In ThisWorkbook.Worksheets Set Erg = Nothing Set Erg = WS.Cells.Find(What:=cGesuchteText, LookIn:=xlValues) If Not Erg Is Nothing Then Erg.EntireRow(2).Insert Shift:=xlDown Quelle.Copy Erg.Range("A2").PasteSpecial xlPasteAll Application.CutCopyMode = False End If Next End Sub

Hallo Michael

versuche, anstatt
Erg.Range("A2").PasteSpecial xlPasteAll

folgendes:
Erg.Range("A2").PasteSpecial xlPasteValues

Beim "xlPasteAll" werden Formeln kopiert, die dann an eine andere Stellen eben ein andere Ergbenis herausgeben können.

Analyse und Lösung ist ohne Datei nicht möglich. Und auch wenn: ohne die passende Einarbeitung in VBA deinerseits wird es nur Symptom-Bekämpfung, bis der nächsten -aus deiner Sicht- unerklärlichen Effekt hochkommt.

Hier noch ein paar Tipps, die das Verstehen + Lernen von VBA beschleunigt:
_ immer zuerst Makrorekorder verwenden (mache ich immer noch). Kurze Aufnahme machen und Code anschauen.
_ Code im Schritt-Modus laufen lassen (F8)
_ dabei das Lokalfenster offen halten (Ansicht, Lokalfenster), um den Zustand der Variablen zu sehen.
_ neugierig sein: was steht in dem Objekt hinter dem "+"
_ Überwachungsausdrücke verwenden: Variable oder Ausdruck markieren, Rechtsklick auf "Überwachung hinzufügen..."
_ Variable verwenden, nur um deren Stand im Lokalfenster zu beobachten.
_ auch gut: Debug.Print xxVariableName, druckt den Zustand einer Variable in das Direktfenster.
_ wenn ein VBA-Begriff nicht bekannt ist, Cursor drauf platzieren und Strg+F1, um an der Online-Hilfe zu gelangen. Dort sich die Zeit nehmen, grundlich zu lesen (die Aufmachung ist nur am Anfang gewöhnungsbedürftig) und die gegebenen Beispiele anzuschauen.
_ wenn die erste Schritte schon gemacht sind, das Objektkatalog anschauen (Ansicht, Objekt-Katalog)

VG
Yal

Beliebteste Forumthreads (12 Monate)

Eintrag suchen, unterhalb neue Zeile mit Text einfügen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eintrag suchen, unterhalb neue Zeile mit Text einfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread