Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA/Msg-Box/Zeilen löschen

VBA/Msg-Box/Zeilen löschen
22.12.2006 02:56:09
Uwe
Hallo,
könnt Ihr mir bei folgendem Problem helfen:
Ich habe in Spalte A Zahlen von z.B. 1 bis 10. Jede Zahl nimmt wiederum einen Bereich von 20 Zeilen ein (z.B. die Zahl 3 steht in Zelle A10. Der der Zahl zugeordnete Bereich umfasst die Zeilen 10 bis 19). Über eine Msg-Box soll man die zu löschende Zahl eingeben. Von der eingegebenen Zahl sollen abwärts dann insg. 20 Zeilen gelöscht werden.
Bsp.: Msg-Box: Eingabe 3, Makro: Suche in Spalte A die Zahl 3 und lösche von der Zahl 20 Zeilen abwärts.
Habt Ihr eine Lösung?
Gruß
Uwe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA/Msg-Box/Zeilen löschen
22.12.2006 07:29:12
Oberschlumpf
Hi Uwe
Meinst du so:

Sub SearchAndClear()
Dim liSuche As Integer, liZeile As Integer
liSuche = InputBox("Geben Sie die Suchzahl ein:", "Suche")
For liZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Range("A" & liZeile).Value = liSuche Then
Rows(liZeile & ":" & liZeile + 19).Delete
Exit For
End If
Next
End Sub

Konnte ich helfen?
Ciao
Thorsten
AW: VBA/Msg-Box/Zeilen löschen
22.12.2006 07:43:44
ingUR
Hallo, Uwe,
vermutlich wolltest Du die Kennzahl über eine INPUTBOX eingeben, denn ein MSGBOX kann Dir nur eine NAchricht anzeigen, nicht jedoch Eingabewerte abfragen.
Ferner habe ich nicht ganz begriffen, wieso Du einmal von 20 zu löschenden Zeilen schreibst, dann jedoch mitteilst, dass zur Kennzahl ein Bereich von zehn Zeilen («z.B. die Zahl 3 steht in Zelle A10. Der der Zahl zugeordnete Bereich umfasst die Zeilen 10 bis 19») gehört um dann in Deinem Beispiel zum Makro wieder zwanzig Zeilen löschen zu lassen.
Gut, das ist nicht das eigentliche Problem. Es bleiben zwei Fragen:
  • Kommt die Kennzahl (Suchbegriff) eindeutig nur einmal in der Spalte A vor?
  • Ist die Kennzahlzeile die erste zu löschende Zeile von den zwanzig (zehn?) Zeilen des zu löschenden Bereichs?
    Beide Fragen habe ich mit "Ja" beantwortet und konnte so folgendes Standardmodul schreiben und einsetzen (der Wert für die Variable Anzahl ist anzupassen, falls er unzutreffend ist):
    Option Explicit
Sub LoescheBereichNachKennzahl()
Dim strMuster As String, lFirstRow As Long
Dim Anzahl As Integer
Anzahl = 10
strMuster = InputBox("Kennung")
lFirstRow = Range("A:A").Find(What:=strMuster, _
LookAt:=xlWhole).Row
If lFirstRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 Then
MsgBox "Eintrag " & strMuster & " nicht gefunden"
Exit Sub
End If
Rows(lFirstRow & ":" & lFirstRow + Anzahl - 1).Delete Shift:=xlUp
End Sub
    Vielleicht kannst Du dieses Grundgerüst für Deine Aufgabe geeignet anpassen.
    Uwe
    • Anzeige
    AW: VBA/Msg-Box/Zeilen löschen
    22.12.2006 20:55:02
    Uwe
    Klasse,
    hat wunderbar geklappt. Vielen Dank.
    Gruß
    Uwe

    113 Forumthreads zu ähnlichen Themen

    VBA - Hilfetexte für Funktionen wie MsgBox, InputB
    Stefan

    Hallo zusammen,
    gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
    Danke vorab und Gruß.
    Stefan
    12.06.2009 09:41:53
    Thread-ID: 1080899
    2 Beiträge
    Anzeige
    VBA MsgBox - Ausgabe verschiedener Werte
    Dominic

    Hallo zusammen,
    ich habe in einer Excel Tabelle 5 Formularsteuerelemente (Kontrollkästchen) eingefügt und diese natürlich auf unterschiedliche Zellbezüge von N1 bis N5 gesetzt.
    Je nach Auswahl der Kontrollkästchen / abhaken habe ich in N1 bis N5 natürlich nun ein "Wahr oder Falsch" steh...
    22.01.2014 14:09:35
    Thread-ID: 1346336
    7 Beiträge
    VBA Ppt MsgBox ohne Programm anzuhalten
    Florian

    Hallo alle zusammen,
    ich habe ein Makro geschrieben mit welchem ich automatisiert aus Excel eine PowerPoint Präsentation erstelle und diese anschließend abspeichere. Bevor ich speichere habe ich eine msgbox vbYesNo in welcher der Nutzer bestätig, ob er die generierte Präsentation so abspeic...
    04.08.2014 15:01:57
    Thread-ID: 1374063
    4 Beiträge
    Anzeige
    VBA Msgbox mit 2 Leerzeilen, richtig?
    Dieter(Drummer)

    Hi VBA Spezialisten,
    ist die VBA Schreibweise richtig oder geht es auch kürzer, wenn ich 2 Leerzeilen in der Msgbox haben möchte?
    Mein Testmakro, dass (auch) funktioniert:
    Sub ZweiLeerzeilen() If MsgBox("Vor 2 Leerzeilen" & vbCrLf & "" & vbCrLf & "Nach 2 Leerzeilen...
    10.11.2015 15:51:49
    Thread-ID: 1457492
    3 Beiträge
    VBA MsgBox Ja/Nein funktioniert nicht?!
    Bernd

    Hallo zusammen,
    ich bin begeisterter Leser dieses Forums und konnte hier schon viele Lösungen und hilfreiche Tipps finden. Leider bin ich jetzt an einem Punkt angekommen, zu dem ich hier und über Google keine Erklärung finden konnte.
    Ich habe eine Userform, auf der ich mir Pfadangaben a...
    27.11.2015 10:17:50
    Thread-ID: 1461060
    3 Beiträge
    VBA Excel mit MSG BOX
    ALI

    Hallo,
    ich habe folgende herausforderung.
    Ich habe eine Einsatzplan mit mehreren LKW.
    NAME Tag1 Tag2 Tag3 Tag4 Tag5
    LKW1 10:00 10:00 11:00 11:00 11:00
    LKW2 10:00 10:00 11:00 11:00 11:00
    LKW3
    Links stehen die LKW´s 1 - 3 in der Spalte.
    17.12.2015 11:32:04
    Thread-ID: 1464860
    12 Beiträge
    VBA - Werte aus Tabellenblatt in MsgBox ausgeben
    Ansako78

    Hallo zusammen
    ich habe eingeschränkte VBA-Erfahrungen und versuche gerade folgendes: es gibt eine Tabelle, in der in Spalte 1 verschiedene Kontonummern stehen, die wiederholt vorkommen, und in Spalte 2 steht die Buchungsnummer der Belastung und in Spalte 3 der belastete Betrag (es gibt kei...
    31.12.2015 18:26:05
    Thread-ID: 1466572
    5 Beiträge
    mittels VBA "msgbox eingabe" eine Zahl suchen
    Michel

    Hallo liebe Excel Freunde
    Ich habe hier eine Routine Aufgabe und möchte diese gerne automatisieren.
    vielen Dank vorab für euer Feedback
    Hier das File um was es geht:
    https://www.herber.de/bbs/user/104662.xlsm
    Dies ist ein Auszug aus dem SAP und kann je nach dem von der Date...
    30.03.2016 15:53:48
    Thread-ID: 1484875
    4 Beiträge

    Links zu Excel-Dialogen

    InputBox

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    1
    5
    6
    3
    2
    2
    2
    11
    4
    3
    5
    6
    4
    8
    9
    9
    2
    3
    2
    7
    10
    7
    1
    2
    3