Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If then in einem Makro

If then in einem Makro
25.05.2006 23:02:14
AVD
Folgendes Problem;
in meiner Arbeitsmappe ist ein Befehl:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Run "speichern"
End Sub

Dieser soll so modifiziert werden, daß eine if then Anwendung gebracht wird.
Wenn in der Tabelle Start! der Zellenwert A1 =1 dann Application.Run "speichern" ansonsten Application.Run "speichern2"
Vielen Dank für Eure Beiträge.
Gruß
Alex

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

Betreff
Datum
Anwender
Anzeige
AW: If then in einem Makro
25.05.2006 23:20:33
Gerd
Hi,
das bekommst du doch selbst hin:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Start")
If .[a1] = 1 Then
speichern
Else
speichern2
End With
End Sub

mfg Gerd
If then in einem Makro
25.05.2006 23:45:46
AVD
Hallo Gerd,
vielen Dank für deien Unterstützung hat einwandfrei geklappt. Es jedoch noch der Befehl End if gefehlt.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Start")
If .[a1] = 1 Then
speichern
Else
speichern2
End If
End With
End Sub

Vielen Dank
Gruß
Alex
Anzeige
AW: If then in einem Makro
25.05.2006 23:59:12
Gerd
Das passiert, wenn man aus der Hand schreibt, schon mal.
mfg Gerd

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige