Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
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
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Syntax...bitte Hilfe

Syntax...bitte Hilfe
Peter
Hallo Ihr,
ich möchte per VBA den Inhalt der nachstehenden Zellen löschen....aber die Syntax stimmt nicht....hab ich nur 1 Zahl in der Bedingung stehen klappts....bitte helft mir wie die Syntax heisst wenn es mehrere(nicht zusammenhängende) Zahlen sind
If Sheets("Tabelle1").[A1].Value = "1;3;4" Then
Application.Sheets("Tabelle1").[A1] = Delete
Application.Sheets("Tabelle1").[B2] = Delete
End If
Danke
Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Syntax...bitte Hilfe
05.04.2004 14:46:23
soendi
probiers mal so

Sub mach_mal()
If Sheets("Tabelle1").[A1].Value = 1 Or 3 Or 4 Then
Application.Sheets("Tabelle1").[A1] = Delete
Application.Sheets("Tabelle1").[B2] = Delete
End If
End Sub

AW: Syntax...bitte Hilfe
Reinhard
Hi Peter, 

x=Sheets("Tabelle1").[A1].Value
If x = 1 or x = 3 or x = 4 Then 'ggfs. If x = "1" or x = "3" or x = "4"
Application.Sheets("Tabelle1").[A1] = Delete
Application.Sheets("Tabelle1").[B2] = Delete
End If

Gruß
Reinhard
wieso einfach, wenns auch kompiziert geht? :-) o.T
soendi
AW: wieso einfach, wenns auch kompiziert geht? :-) o.T
Peter
Hallo Ihr
danke für die rasche Hilfe....war irgendwie net ganz da...und noch n kommentar zu soendi....sich lustig zu machen über andere hilft net grade viel....
hier nun die funktionierende syntax:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
x = Sheets("Tabelle1").[A1].Value
If x = "1" Or x = "3" Or x = "4" Or x = "7" Then
Application.Sheets("Tabelle1").[A1] = Delete
Application.Sheets("Tabelle1").[B2] = Delete
End If
End Sub

vielleicht kanns ja jemand brauchen
grüsse
Peter
Anzeige
AW: wieso einfach, wenns auch kompiziert geht? :-) o.T
06.04.2004 07:46:24
Nepumuk
Hallo Peter,
oder so:
If InStr(1, "#1#3#4#7#", "#" & Sheets("Tabelle1").[A1].Value & "#") 0 Then
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige