Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie entfernt man Reihen auf Zellenwert in Excel?

Um schnell mehrere Zeilen basierend auf dem Zellenwert in Excel zu löschen oder zu entfernen, müssen Sie möglicherweise zuerst die gesamten Zeilen auswählen, die den bestimmten Zellenwert enthalten, und dann die entsprechenden Zeilen entfernen. Es scheint, dass es keine schnelle Möglichkeit gibt, Zeilen basierend auf dem Zellenwert zu löschen, sondern VBA-Code zu verwenden. Hier sind ein paar schnelle Tricks, um Ihnen zu helfen.

Entfernen Sie Zeilen basierend auf einem Zellenwert mit der Funktion Suchen und Ersetzen

Entfernen Sie Zeilen basierend auf einem Zellenwert mit VBA-Code

Entfernen Sie Zeilen basierend auf einem oder zwei Zellenwerten

Entfernen Sie Zeilen basierend auf mehreren Zellenwerten

Schnelles Auswählen der gesamten Zeile / Spalte nach einem bestimmten Zellenwert und Löschen der ausgewählten Zeile / Spalte.

Kutools for Excel Select SpecifiC Cells Das Dienstprogramm bietet Excel-Benutzern eine einfache Möglichkeit, die gesamte Zeile oder die gesamte Spalte auszuwählen, wenn die Zellenwerte in Excel mit einem bestimmten Wert übereinstimmen. Einfacher und deutlicher zum Arbeiten! Vollversion Kostenlos testen 30-Tag!
ad select special cells selektiert ganze Zeilen Spalten, wenn sie einen bestimmten Wert enthalten

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und andere Elemente zu Ihren Favoriten hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20-Textfunktionen: Extrahiere die Zahl aus der Zeichenkette. Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umrechnen.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einer; Mehrere Zellen / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren; Doppelte Zeilen und Summe zusammenführen.
  • Geteilte Werkzeuge: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe in mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / Gefilterte Zeilen; Zählung und Summe nach Hintergrundfarbe; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie diese auf alle Blätter an. Art nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.


Pfeil blaue rechte Blase Entfernen Sie Zeilen basierend auf dem Zellenwert mit der Funktion Suchen und Ersetzen

In Excel können Sie die leistungsstarke Funktion zum Suchen und Ersetzen anwenden, um Zeilen auf der Grundlage eines bestimmten Zellenwerts einfach zu entfernen. Bitte wie folgt vorgehen:

1. Wählen Sie den Bereich aus, in dem Sie Zeilen basierend auf einem bestimmten Zellenwert entfernen möchten, und öffnen Sie das Dialogfeld Suchen und Ersetzen durch Drücken der Taste Ctrl + F Schlüssel gleichzeitig.

2. Geben Sie im Dialogfeld Suchen und Ersetzen den gewünschten Zellenwert ein (in unserem Fall geben Sie den Wert ein) So) in die Find what Klicken Sie auf die Schaltfläche Find All Taste. Siehe den ersten Screenshot unten:

3. Wählen Sie alle Suchergebnisse unten im Dialogfeld Suchen und Ersetzen aus, und schließen Sie dieses Dialogfeld. (Text: Sie können eines der Suchergebnisse auswählen und dann Ctrl + A Tasten, um alle gefundenen Ergebnisse auszuwählen. Siehe den zweiten Screenshot oben.)
Und dann können Sie sehen, dass alle Zellen ausgewählt sind, die den bestimmten Wert enthalten.

4. Klicken Sie mit der rechten Maustaste auf die ausgewählten Zellen und wählen Sie die Option Delete aus dem Kontextmenü. Und dann check das Entire row Klicken Sie im Popup-Dialogfeld Löschen auf die Option OK Taste. Jetzt sehen Sie, dass alle Zellen mit dem bestimmten Wert entfernt wurden. Siehe Screenshots unten:

Und dann wurden ganze Zeilen basierend auf dem bestimmten Wert bereits gelöscht.


Pfeil blaue rechte Blase Entfernen Sie Zeilen basierend auf dem Zellenwert mit VBA-Code

Mit dem folgenden VBA-Code können Sie die Zeilen schnell mit einem bestimmten Zellenwert löschen. Führen Sie dazu die folgenden Schritte aus:

1. Drücken Sie die Alt + F11 Schlüssel gleichzeitig öffnen Microsoft Visual Basic for applications Fenster,

2. Klicken Sie Insert > Module, und geben Sie den folgenden Code in das Modul ein:

VBA: Entfernen Sie ganze Zeilen basierend auf dem Zellenwert

Sub DeleteRows()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
        End If
    End If
Next
DeleteRng.EntireRow.Delete
End Sub

3. Klicken Sie dann auf Run Schaltfläche, um den Code auszuführen.

4. Wählen Sie im Popup-Dialogfeld den Bereich, in dem Sie die Zeilen basierend auf dem bestimmten Wert entfernen möchten, und klicken Sie auf OK klicken.

5. Geben Sie in einem anderen Dialogfeld den bestimmten Wert ein, für den Sie Zeilen entfernen möchten, und klicken Sie auf OK Taste. Siehe Screenshot:

Und dann werden Sie sehen, dass ganze Zeilen bereits auf dem angegebenen Wert gelöscht wurden.


Pfeil blaue rechte Blase Entfernen Sie Zeilen mit Kutools für Excel basierend auf ein oder zwei Zellenwerten

Wenn Sie installiert haben Kutools for Excel, seine Select Specific Cells Feature kann Ihnen helfen, die Zeilen mit einem bestimmten Wert schnell zu löschen. Bitte wie folgt vorgehen:

1. Wählen Sie den Bereich, in dem Sie Zeilen basierend auf dem bestimmten Wert entfernen möchten, und klicken Sie auf Kutools > Select > Select Specific Cells. Siehe Screenshot:

2. Bitte überprüfen Sie im Dialogfeld "Angegebene Zellen auswählen" Entire row Option auswählen Contains ab Specific type Dropdown-Liste, geben Sie den angegebenen Wert in das rechte Feld ein und klicken Sie auf Ok Schaltfläche (siehe obigen Screenshot).
Nach dem Anwenden dieser Funktion wird ein Dialogfeld angezeigt, in dem angezeigt wird, wie viele Zellen basierend auf den angegebenen Kriterien gefunden wurden. Bitte klicken Sie auf OK Schaltfläche, um es zu schließen.

3. Jetzt werden ganze Zeilen mit dem bestimmten Wert ausgewählt. Bitte klicken Sie mit der rechten Maustaste auf die ausgewählten Zeilen und klicken Sie auf Delete aus dem Kontextmenü. Siehe Screenshot unten:

Text: Diese Select Specific Cells Feature unterstützt das Löschen von Zeilen um einen oder zwei bestimmte Werte. Um Zeilen zu löschen, die auf zwei angegebenen Werten basieren, geben Sie bitte einen anderen Wert in der Specific type Abschnitt des Dialogfelds Bestimmte Zellen auswählen wie im folgenden Screenshot gezeigt:

Kutools for Excel - Enthält mehr als 300-Tools für Excel. Kostenlose Testversion mit vollem Funktionsumfang 30-Tag, keine Kreditkarte erforderlich! Hol es dir jetzt


Pfeil blaue rechte BlaseEntfernen Sie Zeilen basierend auf mehreren Zellenwerten mit Kutools für Excel

In einigen Fällen müssen Sie möglicherweise Zeilen entfernen, die auf mehreren Zellenwerten aus einer anderen Spalte / Liste in Excel basieren. Hier werde ich vorstellen Kutools for Excel's Select Same & Different Cells Feature, um es schnell und einfach zu lösen.

1. Klicken Sie Kutools > Select > Select Same & Different Cells um das Dialogfeld Gleiche und verschiedene Zellen auswählen zu öffnen.

2. In der Eröffnung Select Same & Different Cells Dialogfeld, gehen Sie bitte wie folgt vor (siehe Screenshot):

(1) In der Find values in Bitte wählen Sie die Spalte aus, in der Sie die gewünschten Werte finden.
(2) In der According to Feld, bitte wählen Sie die Spalte / Liste mit mehreren Werten, die Sie Zeilen löschen basierend auf;
(3) In der Based on Abschnitt, bitte überprüfen Sie die Each row Option;
(4) In der Find Abschnitt, bitte überprüfen Sie die Same Values Option;
(5) Überprüfen Sie die Select entire rows Option am unteren Rand des Dialogfelds zum Öffnen.
Text: Wenn zwei angegebene Spalten den gleichen Header enthalten, überprüfen Sie bitte die My data has headers Option.

3. Drücke den Ok Schaltfläche, um dieses Dienstprogramm anzuwenden. Und dann erscheint ein Dialogfeld und zeigt an, wie viele Zeilen ausgewählt wurden. Klicken Sie einfach auf OK Schaltfläche, um es zu schließen.

Und dann wurden alle Zeilen mit Werten aus der angegebenen Liste ausgewählt.

4. Klicken Sie Home > Delete > Delete Sheet Rows um alle ausgewählten Zeilen zu löschen.


Pfeil blaue rechte BlaseDemo: Entfernen Sie Zeilen basierend auf einem oder mehreren Zellenwerten in Excel

Kutools for Excel Enthält mehr als 300-Tools für Excel, die Sie in 30-Tagen uneingeschränkt testen können. Jetzt herunterladen und kostenlos testen!

Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    kaushal · 2 years ago
    very well. Thank you!
  • To post as a guest, your comment is unpublished.
    Bobby · 2 years ago
    Can someone help me...If 3rd column has value 0, then delete all values of corresponding column 1st.
    In this case answer should be the last line only....

    Check MenuName ID
    3149 VNLA MILFLLE 2
    3149 TURKEY PNN 0
    3149 R. BEEF PNN 0
    3149 MIX MOCHA 38
    3150 M.G.R 1/2 0
    3150 THE PEPPE L 0
    3150 MIX SLD 0
    3150 EGGPLANT 0
    3150 STILL WATER 7
    3151 MIX MOCHA 38
  • To post as a guest, your comment is unpublished.
    Amar · 2 years ago
    Thanks for sharing. I am actually looking for a code that doesn't ask user for range but instead selects a specific column say column "A" and runs till the last row of that column. Can you please help..
  • To post as a guest, your comment is unpublished.
    Marion · 3 years ago
    Hi everybody,

    I am wondering what can we do to delete the following (According to the example shown in this page): Soe appears at several date (sept, October... etc). What I would like is to delete the line where Soe is but to keep the line with last date she appeared. In addition, some lines could be in double but I still want to keep it.

    So for example, you have the lines:
    - July 3 /Soe
    - Sep 4 / Soe
    - Sep 4 / Soe
    - Oct 19/ Soe
    - Nov 13 / Soe
    - Nov 13 / Soe

    and what I want to keep is:
    - Nov 13 / Soe
    - Nov 13 / Soe

    [i][b]My real case is:[/b][/i] I have different EAN code and version 1, 2, 3 or 4 and I want to keep the line where the version is the higher.
    e.g.: I have:
    - EAN 1 / Version 1
    - EAN 1 / Version 1
    - EAN 1 / Version 2
    - EAN 1 / Version 2
    - EAN 2 / Version 2
    - EAN 2 / Version 3
    - EAN 2 / Version 3


    and I want to keep:
    - EAN 1 / Version 2
    - EAN 1 / Version 2
    - EAN 2 / Version 3
    - EAN 2 / Version 3


    I am searching since hours and I am completely blocked on this issue.

    Many thanks in advance for your brain and help.

    Best,

    Marion
  • To post as a guest, your comment is unpublished.
    Aju Thoas · 3 years ago
    Hi,

    Thank you this was really helpful. However, there's an error that pops up when I run the codes it says "Object variable or with block variable not set" and it points to " the line DeleteRNG.EntireRow.Delete". Could you please help me with debugging this.

    Thanks.
  • To post as a guest, your comment is unpublished.
    PC · 3 years ago
    I am trying to use this macro in order to delete unused formulas, because excel views blank formula cells as a zero value and will print extra pages. I was hoping when I deleted the unused formulas, when I printed it would only print the pages that had information. This is not the case and I really need help to find a solution. I have tried using this formula and it is not working and prints three extra pages that I do not need even with the extra formulas being deleted.

    Sub selectonly()
    '
    ' selectonly Macro
    '

    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    End Sub
  • To post as a guest, your comment is unpublished.
    NEU · 3 years ago
    thank you so much. That save me a lot of time
  • To post as a guest, your comment is unpublished.
    NC Arch · 4 years ago
    Trying to find a delete Function that will delete entire designated rows automatically, based on certain values or certain text contained in other cell(s), using only automated formulas.
  • To post as a guest, your comment is unpublished.
    Clay · 4 years ago
    How can i delete selected cell that i want based on value that i entered for example :
    A1 B1 C1 D1
    A2 B2 C2 D2
    A3 B3 C3 D3
    A4 B4 C4 D4

    When i entered in some cell for example "2" then 2 row will be deleted from A3:D4. If i entered "1" then 1 row will be deleted from A4:D4. if i entered "3" then 3 row will be deleted from A2:D4
  • To post as a guest, your comment is unpublished.
    Milon · 4 years ago
    Great it work thank you so much
  • To post as a guest, your comment is unpublished.
    Moe · 4 years ago
    Hello, many thanks for the code. But say I want to delete one row containing "Apple". And not all of the rows containing it. Let's just say the last one, or a random one, doesn't really matter, just one. Many thanks in advance! :-)
  • To post as a guest, your comment is unpublished.
    Meredith · 4 years ago
    Just what I needed, thanks! :D
  • To post as a guest, your comment is unpublished.
    JonS · 4 years ago
    Is there anyway to have the value recognize a value that has expired, such as. All rows that show an expiration date within a specific column will be automatically removed and then the rows that were deleted will be filled by moving the rows beneath. Filling gaps.
  • To post as a guest, your comment is unpublished.
    angel baby · 4 years ago
    What a great. thank so all so much. :)
  • To post as a guest, your comment is unpublished.
    DavidGough · 4 years ago
    is it possible to compare two columns and then delete? is in range A3:D3000 if cell A=x and cell B=y then delete row?
  • To post as a guest, your comment is unpublished.
    DavidGough · 4 years ago
    How can I specify the range A3:D3000 (ie. I don´t want the user to select the range)? How can I make the Delete String a cell reference, ex. G1?
  • To post as a guest, your comment is unpublished.
    Joan K · 4 years ago
    Hello and thank you very much for the VBA code. I have one question.

    Is it possible to make the code the way that it is possible to choose several cell values to delete at the same time? For example choose Apple and Emily at the same time and delete them?
    I appreciate you work and looking forward to your response.

    Joan K
  • To post as a guest, your comment is unpublished.
    Victor · 5 years ago
    i have a list of stores in one document. I have a report that returns thousand of lines. the store number is always in Column A. Is there a code/macro that will search the report and delete all columns with store numbers from the store list. thinking a vlookup and "Do While" are needed.
  • To post as a guest, your comment is unpublished.
    alex2 · 5 years ago
    I'd like to delete all rows where column1 = "Apple" AND column3 = "green". please?
    • To post as a guest, your comment is unpublished.
      Finidi · 5 years ago
      Im not sure how to do this using macro's or so, but one option that would do its job just fine is to add an extra colum that tests for the one colum to be "apple" and the other to be "green" and then let it give a simple "yes" or "no" value. than use either of the above options to search for the value "yes" and remove rows based on that instead of 2 seperate values.
  • To post as a guest, your comment is unpublished.
    gabz · 5 years ago
    thank.. it helps me a lot...
  • To post as a guest, your comment is unpublished.
    smj2013 · 5 years ago
    Thank you for the VB Script. I can not wait to try this. Question:Is there anyway to mark the columns for deletion prior to deleting them and/or copy to a separate tab in the workbook? In addition is there a way to run this script run on multiple workbooks/files at one time?
  • To post as a guest, your comment is unpublished.
    Leo · 5 years ago
    Hi,
    Any way to write it to delete a row, with an OR exception? I.e- delete rows that are duplicates, but ignore a certain value. I want to delete duplicates, except where the column in question contains a blank b/c that column doesn't have valid data yet. I ran as you have, but I ended deleting rows with a blank in the column in question, so I can't use it as it is.
    Thanks
  • To post as a guest, your comment is unpublished.
    Tee · 5 years ago
    Hi,
    What is the easiest way to delete rows that do NOT contain "Apple" please?

    Thanks
  • To post as a guest, your comment is unpublished.
    Aleardo · 5 years ago
    Thanks, this is great!
    Quick comment, I tried the find and replace function in excel 2010.
    In order to select all the found results I had to use Ctrl +A instead of Alt + A.
  • To post as a guest, your comment is unpublished.
    Mira · 5 years ago
    Definitely awsome! Appreciate for sharing!!!
  • To post as a guest, your comment is unpublished.
    Joe Nelson · 5 years ago
    I just wanted to say thank you. This worked like a charm.
  • To post as a guest, your comment is unpublished.
    Adam · 5 years ago
    Lets say I put the below code in to delete all of my rows that contain apple but then I want it to continue once that is done and delete all the rows that contain banana? I tried to just duplicate the code but it seems to stop after apple.

    thanks.

    Sub Delete_Rows()
    Dim rng As Range, cell As Range, del As Range
    Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange)
    For Each cell In rng
    If (cell.Value) = "Apple" _
    Then
    If del Is Nothing Then
    Set del = cell
    Else: Set del = Union(del, cell)
    End If
    End If
    Next cell
    On Error Resume Next
    del.EntireRow.Delete
    End Sub
  • To post as a guest, your comment is unpublished.
    H man · 5 years ago
    I get:

    run-time error '13':
    Type mismatch

    Debugging highlights the If (cell.Value) = "FALSE" _
    Then
    section.

    I'm totally lost in MVB, any help would be appreciated.
  • To post as a guest, your comment is unpublished.
    Jim Mc · 5 years ago
    Heartfelt thanks - it's always amusing when the Marketing guy tries to write code, and this info was super helpful. I was unable to get the code to span multiple columns ("AA2:AA3000" works, "AB2:AB3000" works, but "AA2:AB3000" doesn't work. There's no Earth-shattering Kaboom - it just does nothing. I've solved it (amateurishly, I suppose) by running several macros in sequence, but there's probably a more elegant way. Thanks again for your help, Jim (Melville, NY)
  • To post as a guest, your comment is unpublished.
    Claire · 6 years ago
    Hey - thanks so much for the script. I was wondering if you can use wildcards so you can select anything within a cell that matches rather than a specific item? I've tried using ** wildcards but it doesn't seem to do anything. Here is what I have:

    Sub Delete_Rows()
    Dim rng As Range, cell As Range, del As Range
    Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange)
    For Each cell In rng
    If cell.Value Like "*WORDTODELETE*" _
    Then
    If del Is Nothing Then
    Set del = cell
    Else: Set del = Union(del, cell)
    End If
    End If
    Next cell
    On Error Resume Next
    del.EntireRow.Delete
    End Sub
  • To post as a guest, your comment is unpublished.
    Art · 6 years ago
    Bobby, try this, it should get what you want:
    If (cell.Value) = "Apple" OR (cell.Value) = "Monday"
    • To post as a guest, your comment is unpublished.
      April · 5 years ago
      Is there anyway to have the value recognize a value whether is > or = to a certain value?
  • To post as a guest, your comment is unpublished.
    Bobby · 6 years ago
    Any way to modify the If (cell.Value) = "Apple" to include multiple values?
  • To post as a guest, your comment is unpublished.
    Alan · 6 years ago
    Fantastic! That worked a treat, I altered it slightly to suit what I needed but pure genious. Oh VBA Version.