Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Syntax...bitte Hilfe

Forumthread: 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
Anzeige

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
Anzeige
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)

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