Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

if-then-else
Autor: zumkeller
Datum: 23.01.02 10:26
hallo, leider habe ich nicht besonders viel ahnung von vb. deshalb hier ein problem mit einer if-schleife. es wird immer nur die erste-if-anwesung beachtet. If Not filenameinput = "*.doc" Or Not filenameinput = "*.jpg" Then Set xls = CreateObject("Excel.Application") With xls .Visible = True .Workbooks.Open filenameinput .ActiveSheet.Activate .ActiveChart.ChartArea.Select .Selection.Copy ActivePresentation.Slides(c).Shapes.Paste .DisplayAlerts = False .Quit .DisplayAlerts = True End With Set xls = Nothing ElseIf Not filenameinput = "*.xls" Or Not filenameinput = "*.jpg" Then Set doc = CreateObject("Word.Application") With doc .Visible = True .Documents.Open filenameinput .WordBasic.EditSelectAll .WordBasic.SetDocumentVar "MyVar", .WordBasic.Selection Text = .WordBasic.GetDocumentVar("MyVar") txtNeu.Text = InsertNewLineChars(Left(Text, Len(Text) - 1)) .Documents.Close (0) .Quit End With Set doc = Nothing ElseIf Not filenameinput = "*.xls" Or Not filenameinput = "*.doc" Then Set image = ActivePresentation.Slides(c) With image.Shapes .AddShape(msoShapeRectangle, 300, 200, 250, 150).Fill.UserPicture filenameinput End With Set image = Nothing End If

if-then-else	67	zumkeller	23.01.02 10:26
Re: if-then-else	369	Dieter	23.01.02 10:30
Re: if-then-else	33	zumkeller	23.01.02 10:40
Re: if-then-else	382	Dieter	23.01.02 10:46
Re: if-then-else	35	zumkeller	23.01.02 10:57
Also dann...	478	Dieter	23.01.02 11:08
Re: Also dann...	35	zumkeller	23.01.02 11:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen