Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Neue Versionsnummer vergeben

Forumthread: Neue Versionsnummer vergeben

Neue Versionsnummer vergeben
Wolfango
Hallo nochmal,
folgende Aufgabenstellung:
In einer Zelle soll eine Versionsnummer erscheinen (eine ganz normale Zahl)
Über der Versionsnummer hätte ich gerne einen Schalter, der dann ein Makro anstößt wodurch der bereits vorhandenen Versionsnummer jeweils "1" hinzuaddiert wird.
Lässt sich das irgendwie machen?
Gruß,
Wo.
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Neue Versionsnummer vergeben
24.08.2009 13:33:08
Adelhorst
Hallo Wolfango.
Füge ein CommandButton-Element in das Tabellenblatt über der besagten Zelle ein. Per Rechtsklick auf den Button wähle "Code anzeigen" und gib folgendes ein:
Private Sub CommandButton1_Click()
Range("C6") = Range("C6") + 1
End Sub
Die Zelle musst du natürlich anpassen.
Gruß Adelhorst
Anzeige
AW: Neue Versionsnummer vergeben
24.08.2009 13:58:01
Wolfango
....funktioniert! super! Danke!
AW: Neue Versionsnummer vergeben
24.08.2009 18:28:20
Wolfango
...hätte da doch noch einen Wunsch:
Das Makro funktioniert - wie schon gesagt - einwandfrei. Da die zu verändernde Zellle (die in der weitergezählt wird) für viele Personen gesperrt sein wird, erzeugt das Makro für diesen Fall (verständlicherweise) eine Fehlermeldung.
Kann ich diese Fehlermeldung:
a.) unterdrücken?
oder
b.) in einen von mir eingegebenen gesetzten Text umleiten?
oder
c.) Für den Fall das das Arbeitsblatt geschützt wurde, dieses Makro deaktivieren?
Danke!
Gruß,
Wo.
Anzeige
AW: Neue Versionsnummer vergeben
24.08.2009 18:35:34
Gregor
Hi,
a: On Error resume Next
b: If ActiveSheet.ProtectContents Then
Msgbox "Blatt gesperrt!"
Exit Sub
End If
c: If ActiveSheet.ProtectContents Then
Exit Sub
End If
mfg Gregor
AW: Neue Versionsnummer vergeben
24.08.2009 19:02:42
Wolfango
...und wo muss ich das eingeben?
oberhalb/unterhalb des vorhandenen Makros?
In ein neues Modul?
(...sorry...hab von VBA keine Ahnung....)
Anzeige
AW: Neue Versionsnummer vergeben
24.08.2009 19:17:19
Gregor
Hi,
in die selbe Prozedur nach den ggf. vorhanden Variablendeklarationen, vor deinem ursprünlichen Code.
mfg gregor
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum