Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile einfügen wenn bestimmter Wert vorhanden

Zeile einfügen wenn bestimmter Wert vorhanden
28.11.2008 13:12:00
Bernhard
Hallo zusammen,
das Forum hat mir schon oft bei meiner Recherche geholfen, jetzt habe ich mal eine Frage.
Ich habe eine Tabelle in der in der Spalte A in verschiedenen Zeilen das wort "Ergebnis" steht.
Wie kann ich jeweils unter dieser Zeile eine Leerzeile einfügen.
Ich hoffe das mir einer von euch Profis weiterhelfen kann

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
So zum Beispiel
28.11.2008 13:18:00
Backowe
Hi,
VBA-Code:
Option Explicit
Sub ZeileEinfuegen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
  If Cells(i, "A") = "Ergebnis" Then
    Cells(i + 1, "A").EntireRow.Insert
  End If
Next
Application.ScreenUpdating = False
End Sub
Gruß Jürgen
AW: So zum Beispiel
Bernhard

Hallo Jürgen,
Vielen Dank, für die schnelle Antwort
War mal wieder nicht ausführlich genug. Entschuldige
Noch eine kurze Frage:
Habe das Wort "ergebnis" nicht alleine stehen, (Tabelle ist eine Kopie von ner Pivot)!
Es steht noch Zahlen davor. Wie muß ich das Wort "Ergebnis" in deiner Formel abändern,
damit er auch mit z.B. "10 Ergebnis" oder "Gesamtergebnis" klarkommt
Gruß Bernhard
So!
Backowe

Hi,

If InStr(LCase(Cells(i, "A")), "ergebnis") > 0 Then ...


Gruß Jürgen

AW: So!
Bernhard

Hallo Jürgen,
läuft perfekt.
Vielen Dank
Anzeige
AW: So zum Beispiel
28.11.2008 13:36:46
Bernhard
Hallo Jürgen,
Vielen Dank, für die schnelle Antwort
War mal wieder nicht ausführlich genug. Entschuldige
Noch eine kurze Frage:
Habe das Wort "ergebnis" nicht alleine stehen, (Tabelle ist eine Kopie von ner Pivot)!
Es steht noch Zahlen davor. Wie muß ich das Wort "Ergebnis" in deiner Formel abändern,
damit er auch mit z.B. "10 Ergebnis" oder "Gesamtergebnis" klarkommt
Gruß Bernhard
So!
28.11.2008 13:47:12
Backowe
Hi,

If InStr(LCase(Cells(i, "A")), "ergebnis") > 0 Then ...


Gruß Jürgen

AW: So!
28.11.2008 13:49:00
Bernhard
Hallo Jürgen,
läuft perfekt.
Vielen Dank
Anzeige

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige