Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nicht aktives Blatt ansprechen in VBA

nicht aktives Blatt ansprechen in VBA
14.10.2005 12:06:21
Toxma
Hallo,
kann jemand helfen?
Gibt es eine Möglichkeit auf Zellen in einem Arbeitsblatt zuzugreifen, wenn dieses ausgeblendet ist? Speziell in Zelle A3 erfolgt die Ausgabe des Speicherdatums der Datei mit VBA und dieses Blatt möche ich ausblenden. Beim einblenden funktioniert des Code leider nicht.
Kann jemand helfen?
Das ist mein Code
Steht im Blatt Tabelle1 und funktioniert eben nur, wenn das Blatt aktive ist.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A3") = Date
Range("A4") = Time
End Sub

If Range("A1").Value = "1" Then
MsgBox "Das Datum Manipuliert", vbOKOnly + vbCritical, Application.UserName
ActiveWorkbook.Close False
'Range("A1") = Calendar1.Value
End If
Danke danke schon mal ist dringend
Toxma

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nicht aktives Blatt ansprechen in VBA
14.10.2005 12:12:52
Matthias
Hallo Toxma,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Tabelle1")
.Range("A3") = Date
.Range("A4") = Time
End With
End Sub

Gruß Matthias
AW: nicht aktives Blatt ansprechen in VBA
14.10.2005 13:03:46
Toxma
Hy,
funktioniert trotzdem nicht, oder ich hab's nicht richtig probiert. Gibt es eventuell noch eine andere Möglichkeit das der VBA Code funktioniert, auch wenn das aktive Blatt nicht aktive ist, d.h mittels VBA ausgeblendet ist, wenn ich die Datei öffne?
Danke Gruß Toxma
AW: nicht aktives Blatt ansprechen in VBA
14.10.2005 13:09:14
Matthias
Hallo Toxma,
...oder ich hab's nicht richtig probiert.
Aha. Und, willst du es mal richtig probieren?
Man kann die Zellen so ansprechen, egal ob die Tabelle sichtbar/aktiv ist oder nicht. Geschützt darf sie aber nicht sein.
Ohne With:

Sheets("Tabelle1").Range("A3") = Date
Sheets("Tabelle1").Range("A4") = Time

Gruß Matthias
Anzeige
AW: nicht aktives Blatt ansprechen in VBA
14.10.2005 15:55:07
Toxma
Hy,
ich noch mal. Habe es nun mit verschiedenen Dingen versucht aber funktioniert nicht.
Habe mal die Datei angehängt als Beispielmappe unter https://www.herber.de/bbs/user/27503.xls geladen.
Blatt2 befindet sich das Datum und ist ausgeblendet. Bei einem ändern der Systemzeit vor dem aktuellen Datum soll eine Hinweis erscheinen und die Datei sich schließen.
Kannst Du Dir das bitte mal anschauen?
Vielen,vielen Dank
Gruß Toxma
AW: nicht aktives Blatt ansprechen in VBA
14.10.2005 16:20:07
Matthias
Hallo Toxma,
da wird die Formel wohl erst nach der Workbook_Open-Prozedur neu berechnet. Warum diesen Umweg:

'Prüfen bei öffnen der Datei MsgBox ist Datum Manipuliert dann Programm beenden
'sonst das Programm weiter fortsetzen
Private Sub Workbook_Open()
If Date < Sheets("Tabelle2").Range("A3") Then
MsgBox "Das Systemdatum wurde verstellt. Bitte korrigieren. Datei wird geschlossen.", vbOKOnly + vbCritical, Application.UserName
ActiveWorkbook.Close False
'Range("A1") = Calendar1.Value
End If
End Sub

Gruß Matthias
Anzeige
AW: nicht aktives Blatt ansprechen in VBA
14.10.2005 16:24:14
Matthias
Hallo Toxma,
und damit der Anwender das ganze nicht mit Strg+Pause umgehen kann:

'Prüfen bei öffnen der Datei MsgBox ist Datum Manipuliert dann Programm beenden
'sonst das Programm weiter fortsetzen
Private Sub Workbook_Open()
If Date < Sheets("Tabelle2").Range("A3") Then
Application.EnableCancelKey = xlDisabled
MsgBox "Das Systemdatum wurde verstellt. Bitte korrigieren. Datei wird geschlossen.", vbOKOnly + vbCritical, Application.UserName
Application.EnableCancelKey = xlInterrupt
ActiveWorkbook.Close False
'Range("A1") = Calendar1.Value
End If
End Sub

Gruß Matthias
Anzeige

26 Forumthreads zu ähnlichen Themen

VBA variables Tabellenblatt ansprechen
Stefan

Hallo zusammen,
ich möchte über Eingabe in Zelle A1 bestimmen aus welchem externen Tabellenblatt Daten eingelesen werden sollen. Leider schaffe ich es nicht die Zelle als Variable zu gestalten:
Public Sub data()
Dim objWB As Workbook, objWS As Worksheet, objWSImport As Worksheet, ob...
16.11.2009 16:14:31
Thread-ID: 1117681
8 Beiträge
Anzeige
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 Beiträge
Mittels VBA Werte in anderes Tabellenblatt kopiere
Dominic

Hi zusammen,
Ich benötige eine Übergabe meiner Werte aus dem Tabellenblatt "Überblick" ins Tabellenblatt "Export". Der zu kopierende Bereich ist abhängig von folgenden Zellen:
B1
B2
I1
und B6.
1)
Wenn B1=1 und B2=1 und I2=1
Dann sollen die Werte aus B31 - O31 und...
30.01.2013 11:03:50
Thread-ID: 1296660
11 Beiträge
Anzeige
VBA variabilisierter Arbeitsblattname ansprechen
Lisa

Hallo Zusammen.
Ich bin schon kurz vor der Verzweiflung eines wahrscheinlich recht simplen Problems:
Ich hab bisher hinbekommen, dass, wenn das Datum Tag =1 ist, dass es ein neues Arbeitsblatt erstellt und es nach den neuen Monat erstellt.
allerdings hänge ich jett daran, das Blatt...
11.12.2014 15:02:33
Thread-ID: 1397426
3 Beiträge
VBA Seite in Tabelle ansprechen
Müller

Hallo.
Ich habe ein Skript, welches mir meine Daten in Datenpaare trennt und dann per pagesetup an die Seitengröße anpasst.
Nun habe ich das Problem, dass die Daten teilweise so getrennt werden, dass ein Teil auf Seite 1 steht und der andere Teil in der ersten Zeile der Seite 2.
Gib...
09.04.2015 13:00:40
Thread-ID: 1419902
3 Beiträge
VBA userform in nicht aktives Tabellenblatt einfüg
Thomas

Hallo Zusammen
erst mal zu meiner Person. Bin 53 Jahre alt und habe relativ gute Excel Kenntnisse (ausgenommen VBA)
nun zu meinem Problem:
Ich habe in Tabellenblatt 1 einen Commandbotton mit dem ich die Userform1 aufrufe (klappt) Nun sollen aber die Daten der ausgefüllten Userform1...
19.02.2016 08:40:55
Thread-ID: 1476574
6 Beiträge
VBA - Bereiche in anderes Tabellenblatt kopieren
Fred

Hallo VBA Experten,
ich bin mit vba noch nicht soweit, so das ich z.B. mehrere benannte Bereiche in ein anderes Tabellenblatt kopiere, mit der Bedingung, das die Bereiche nebeneinander eingefügt werden, beginnend ab der 2. Zeile.
Also, mal gelistet:
Ich bin in Tabelle „Center“
E...
19.11.2016 23:18:39
Thread-ID: 1525833
13 Beiträge
excel vba bestimmte zelle ansprechen
MichaelP

Hallo Zusammen,
ich stehe irgendwo auf'm Schlauch :-)
Hier habe ich eine nette Kalender-VBA und versuche diese (hier Original) zu ändern/anzupassen:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Kalenderaufruf If Target.Column 2 Then Exit Sub Ca...
28.12.2016 12:45:02
Thread-ID: 1532053
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
8
2
10
8
2
2
5
12
4
1
8
4
2
3
7
4
6
19
1
3
2
2
4
12