Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
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

Zählcounter in VBA

Zählcounter in VBA
17.10.2005 16:59:08
Toxma
Hallo,
brauch mal kurz hilfe. ich suche einen zählcounter in vba, der sich beim öffnen einer datei in excel jeweils um 1 erhöht. nach dem 10'ten mal soll er abbrechen und die datei wieder schließen.
kann mir da jemand helfen?
vielen dank schon mal an dieser stelle.
Toxma

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählcounter in VBA
17.10.2005 17:04:50
Andi
Hi,
nachdem der Wert ja logischerweise nach dem Schliessen erhalten bleiben soll, wirst Du nicht umhinkommen, ihn in eine Zelle zu schreiben; wenn Du willst kannst Du das entsprechende Tabellenblatt aber natürlich ausblenden.
Der Code dazu sähe dann so aus:

Private Sub Workbook_Open()
If Worksheets("Tabelle1").Cells(1, 1).Value >= 10 Then ActiveWorkbook.Close
Worksheets("Tabelle1").Cells(1, 1).Value = Worksheets("Tabelle1").Cells(1, 1).Value + 1
ActiveWorkbook.Save
End Sub

Schönen Gruß,
Andi
AW: Zählcounter in VBA
17.10.2005 17:10:11
Toxma
Hallo Andi,
danke dir für die schnelle hilfe probiere es nachher gleich mal aus. muss gerade noch etwas anderes machen.
also vielen dank erst mal.
Toxma
Anzeige
AW: Zählcounter in VBA
17.10.2005 18:46:50
Toxma
Hallo Andi,
kurze frage noch, wo muss ich den den code einbauen. hab ihn in das arbeitsblatt gepackt aber funktioniert nicht.
hab ich was vergessen oder übersehen?
danke noch mal
Toxma
AW: Zählcounter in VBA
17.10.2005 18:46:59
Toxma
Hallo Andi,
kurze frage noch, wo muss ich den den code einbauen. hab ihn in das arbeitsblatt gepackt aber funktioniert nicht.
hab ich was vergessen oder übersehen?
danke noch mal
Toxma
AW: Zählcounter in VBA
17.10.2005 18:47:56
Toxma
Hallo Andi,
kurze frage noch, wo muss ich den den code einbauen. hab ihn in das arbeitsblatt gepackt aber funktioniert nicht.
hab ich was vergessen oder übersehen?
danke noch mal
Toxma
Anzeige
AW: Zählcounter in VBA
17.10.2005 18:52:05
Hajo_Zi
Hallo Andi,
der Code gehört unter "DieseArbeitsmappe"
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP2.


weiss ich doch...
17.10.2005 23:33:00
Andi
Ich nehme an, Du meintest "Hallo Toxma" :-))
Schönen Gruß,
Andi
Zählcounter in VBA
18.10.2005 10:05:04
Toxma
Hallo Andi,
noch eine kleine frage:
die ausgabe des zählers soll so sein, dass mittels msgbox die ausgabe der anzahl der öffnungen der datei ausgegeben wird. kannst du mir noch sagen, wie ich auf den zelleninhalt zugreifen kann, damit ich den wert der dort steht auslesen kann?
dachte mir so eine möglichkeit der getätigten aufrufe der datei um sie dann nach dem 10 aufruf schließen zu lassen und ein erneuter aufruf nur über eingabe eine passwortes zu ermöglichen. geht das irgendwie?
danke dir auch hier schon mal ganz doll.
gruss Toxma
Anzeige
AW: Zählcounter in VBA
18.10.2005 11:44:38
Andi
Hi,
das geht natürlich;
die einfache Lösung sieht so aus:

Private Sub Workbook_Open()
If Worksheets("Tabelle1").Cells(1, 1).Value >= 10 Then
Select Case InputBox("Die Datei war schon 10 Mal geöffnet" & Chr(13) & "Bitte Passwort eingeben")
Case Is <> "hallo"
MsgBox "Und tschüss..."
ActiveWorkbook.Close
End Select
Else
MsgBox "Die Datei war schon " & Worksheets("Tabelle1").Cells(1, 1).Value & " Mal geöffnet.", vbInformation, "Hinweis"
End If
Worksheets("Tabelle1").Cells(1, 1).Value = Worksheets("Tabelle1").Cells(1, 1).Value + 1
ActiveWorkbook.Save
End Sub

Der Schönheitsfehler dabei liegt darin, dass die Eingabe in eine Input-Box ohne allzu umständliche Verrenkungen nur als Klartext erfolgen kann; wenn Du das Passwort mit den üblichen Sternchen eingeben möchtest, brauchst Du ein UserForm. Bei "VBA-nein" hab ich mir gedacht, isses vielleicht besser ich bau Dir dazu mal ne Beispiel-Mappe :-)
https://www.herber.de/bbs/user/27583.xls
Schönen Gruß,
Andi
Anzeige
AW: Zählcounter in VBA
19.10.2005 14:17:55
Toxma
Hy
super hab hier gerade noch mal reingeschaut und wollte mich noch bedanken für die hilfe.
funktioniert, nun kann ich versuchen es anzupassen. also vielen dank.
gruss T.
Gern geschehen...
19.10.2005 16:07:02
Andi
Danke für die Rückmeldung!
Schönen Gruß,
Andi

301 Forumthreads zu ähnlichen Themen

Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Anzeige
ZÄHLENWENN() mit mehreren Bedingungen
Kasimir

Hallo Leute,
irgendwie komme ich nicht weiter. Ich möchte eine ZÄHLENWENN()-Funktion mit mehreren Bedingungen erstellen, scheitere aber kläglich daran. Ich möchte eigentlich nur Zählen, wenn in Spalte B und C und D etwas steht. Das Ganze von Zeile 20 bis 269.
Mal als Beispiel, in Zelle...
14.03.2009 14:22:53
Thread-ID: 1060148
4 Beiträge
Schriftart einer Email aus Excel mit VBA änder
Helmut

Hallo,
ich generiere aus Excel eine Email und möchte in dieser generierten Email die Schriftart im Body verändern.
Kann mir jemand helfen?
Danke
Helmut
11.05.2009 15:01:05
Thread-ID: 1074366
2 Beiträge
Anzeige
Schleife von Basic in VBA umschreiben
Basic

Hallo Excel-Freunde,
da ich kein VBA-Basic schreiben kann, würde ich gerne eure Hilfe beanspruchen.
Die vorliegende Basic For Next Schleife läuft mit den angegebnen Variablen und Parameter,
würde sie gerne in VBA_Code mit einem Makro jedesmal starten.
A = 11 : B = 12
For I =...
18.07.2009 17:17:03
Thread-ID: 1089659
9 Beiträge
zählenwenn mit mehreren bedingungen
di

Hallo,
ich versuche eine zählenwenn Funktion mit mehreren Bedingungen aufzubauen. Dafür verwende ich die Funktion summenprodukt.
Es sollen dabei aus einer Tabelle für jede Woche die Anzahl der Arbeitstage ermittelt (gezählt werden). Die Wochen sind fortlaufend nummeriert, die Tage von 1...
23.07.2009 13:44:29
Thread-ID: 1090803
4 Beiträge
VBA-Befehl: Zeichen in Schriftart nicht vorhanden
Alex

Schönen guten Tag zusammen,
leider ist der Betreff nicht sehr aussagekräftig, da ich für die Frage etwas weiter ausholen muss. Man möge mir verzeihen.
Lage: Ich will mir für eine Schriftart Code Charts analog denen auf unicode.org erstellen (Beispiel: http://www.unicode.org/charts/PDF/U...
30.09.2009 00:02:51
Thread-ID: 1106220
5 Beiträge
Auslesen von Daten mit mehreren Bedingungen
Daten

Hallo...,
ich habe mit der folgenden Formel einen Wert aus einer Tabelle ermittelt:
=INDEX(Tabelle1!$G$3:$G$380;VERGLEICH(Tabelle1!A149&Tabelle1!B149; Tabelle1!$A$3:$A$342&Tabelle1!$B$3:$B$672;0))
Da die Werte der Spalten A und B in Tabelle1 ständig die Zeilen wechseln wür...
07.10.2009 13:01:49
Thread-ID: 1107773
10 Beiträge
VBA Daten einlesen mit var. Überschriftenzeile
Stefan

Hallo zusammen,
ich habe vor einiger Zeit hier schon mal um Rat gefragt als ich Daten aus einer externen Arbeitsmappe einlesen wolle. Nun möchte ich in einem Optionsblatt eine Variable einbinden in der die Überschriftenzeile zum einlesen steht:
Public Sub data() Dim objWB As Workbook, o...
17.11.2009 13:40:57
Thread-ID: 1117728
6 Beiträge

Links zu Excel-Dialogen

UserForm InputBox

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
5
1
3
1
1
8
3
4
9
5
11
3
6
2
2
5
2
6
4
3
5
3
6
14
4