Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

input vba

Forumthread: input vba

input vba
27.06.2016 17:58:42
ThomasK
Hallo
bitte um Hilfe,
ich möchte gerne eine Input Abfrage.
"Was soll ausgewertet werden "
dann gebe ich ein : "Finanzen" ein. Danach soll er alle Zeilen löschen wenn in der Spalte K keine Zahl 2 oder/und 3 vorhanden ist.
Gibt er ein " Bilanzen " ein.
dann soll er alle Zeilen löschen wenn in der Spalte K keine Zahl 1 oder/und 7 vorhanden ist.
Bei Abbruch einfach abbrechen und die Meldung: Neuer Versuch starten.
Könnt ihr mir helfen?
Ich brauche sowas in VBA ohne ausblenden der zeilen.
Besten Dank
Thomas

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: input vba
27.06.2016 18:40:25
Daniel
Hi
probiers mal so.
Bei Eingabe eines falschen Textes wird wiederholt, bei Abbrechen wird das Makro beendet ohne was zu löschen.
Sub löschen()
Dim Eingabe As String
Dim Formel As String
Do
Eingabe = InputBox("Einfngabe (Bilanzen oder Finanzen)")
Select Case Eingabe
Case "Finanzen"
Formel = "=IF(Or(RC11=2,RC11=3),Row(),0)"
Exit Do
Case "Bilanzen"
Formel = "=IF(Or(RC11=1,RC11=7),Row(),0)"
Exit Do
Case ""
MsgBox "Abbruch"
Exit Do
Case Else
MsgBox "Üngültige Eingabe, nochmal eingeben"
End Select
Loop
If Formel  "" Then
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = Formel
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
End If
End Sub
Gruß Daniel

Anzeige
Danke Daniel es funktioniert super
28.06.2016 18:09:31
ThomasK
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige