Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.06.2025 15:25:35
Richtung der Suche der Find-Funktion ändern
20.06.2025 10:33:16
Array mit Variantobjekten zu Range kombinieren
20.06.2025 08:39:33
Spalte anzeigen
19.06.2025 20:41:29
Laufzeitfehler 91
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei VBA in CommandButton

Forumthread: Hilfe bei VBA in CommandButton

Hilfe bei VBA in CommandButton
10.11.2003 09:27:02
Michael
Hallo,

ich habe in einen Commandbutton zum speichern und drucken folgenden Code eingebaut:


Private Sub CommandButton1_Click()
ChDir "H:\Probieren\"
ActiveWorkbook.SaveAs Filename:="H:\Probieren\Rg-Probe.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub


Das funktioniert auch erstmal soweit, nur hätte ich gerne, das der Dateiname Rg-Probe001.xls heisst und bei jedem Speichern die Zahl um 1 erhöht wird.

Gibt es eine Lösung?

Gruss aus München
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Programmierung
Tags
#commandbutton #fehlerbehebung #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei VBA in CommandButton
10.11.2003 10:03:22
Lutz
Hallo Micha,

eine Möglichkeit wäre, eine Zelle (hier A1) mit Zahl - Format 000 zu formatieren und diese Zelle am Beginn des Makros abzufragen und am Ende um 1 zu erhöhen.



Private Sub CommandButton1_Click()
    ChDir "H:\Probieren\"
    x = Range("A1").Text
    ActiveWorkbook.SaveAs Filename:="H:\Probieren\Rg-Probe" & x & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=True
    [A1] = [A1] + 1
           ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1


Gruß Lutz
Anzeige
AW: Hilfe bei VBA in CommandButton
10.11.2003 10:46:39
Michael
Hallo Lutz,

da die Zelle mit einer Nummer bei mir eh existiert und sich bei jeder weiteren datei um 1 erhöht, sieht das jetzt so aus


Private Sub CommandButton1_Click()
ChDir "H:\Probieren\"
x = Range("L22").Text
ActiveWorkbook.SaveAs Filename:="H:\Probieren\Rg-Probe" & x & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub


Beim Aufruf des Button gibts aber eine Fehlermeldung:
Fehler beim Kompilieren, Variable nicht definiert
und x = ist im Debugfenster markiert

Gruss
Anzeige
AW: Hilfe bei VBA in CommandButton
10.11.2003 11:17:17
Lutz
Hallo Micha,

hast Du sicher Option Explizit eingesetzt.
Schreibe am Anfang des Makros Dim x oder ändere den Code folgendermaßen:



Private Sub CommandButton1_Click()
    ChDir "H:\Probieren\"
    ActiveWorkbook.SaveAs Filename:="H:\Probieren\Rg-Probe" & Range("L22").Text & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=True
    
          ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1


Gruß Lutz
Anzeige
AW: Hilfe bei VBA in CommandButton
10.11.2003 11:31:04
Michael
Danke Lutz,

hattest Recht mit der Option Explizit, habe den Code jetzt geändert und es funktioniert tdellos!

Gruss aus München
Danke für die Rückmeldung ! oT
10.11.2003 11:36:22
Lutz

Forumthreads zu verwandten Themen

dynamische Button-Click-Event für Tabelle
Pia

Hallo,
unter folgendem Link:
https://www.herber.de/forum/archiv/1100to1104/t1100971.htm
wird eine Lösung für dynamische Button-Click-Events bei Userforms angeboten. Ich würde gerne wissen, wie man dies bei einem Tabellenblatt macht. Dieses Tabellenblatt wird inkl. Button per VBA erz...
13.06.2010 21:47:18
Thread-ID: 1161677
3 Beiträge
VBA-CommandButton funktioniert nicht richtig
Marko

Hallo zusammen,
ich habe aus meinen früherem Aufgabengebiet noch eine Datei mit einem ganzen Sack voll Makros drin. Die meisten benötige ich jetzt nicht mehr - aber mindestens eines ist dabei, dass ich gern wieder nutzen würde.
Das Makro blendet ein Fenster ein und listet darin alle Tab...
27.05.2011 13:30:15
Thread-ID: 1216327
4 Beiträge
Anzeige
dynamische Button Click-Event #2
Micha

Hallo zusammen,
ich habe im Forum einen Artikel gefunden (dynamische Button Click-Event vom 07.09.2009) der mir sehr hilft, bei dem ich jedoch noch ein Verständnisproblem habe. Ich hoffe Ihr könnt es auch mir begreiflich machen.
Es geht darum, controls dynamisch zur Laufzeit anzulegen u...
27.09.2013 15:02:34
Thread-ID: 1332446
3 Beiträge
Excel VBA Button Click hilfe :(
Damien

Hallo,
ich versuche per VBA Makro auf diesen Knopf zu drücken:

Einloggen

button type="submit" class="yui3-button yui3-u" Einloggen /button
Kann mir einer ein Codeschnipsel dafür posten?
Danke...
14.11.2013 09:10:33
Thread-ID: 1338488
6 Beiträge
VBA Commandbutton
VBA

Hallo,
Ich habe gerade begonnen mich ein wenig mit VBA zu beschäftigen und bin nun auf ein Problem gestoßen bei dem ich auch mit Internetrecherge nicht weitergekommen bin.
Es geht um folgendes Problem:
Ich möchte mit der betätigen eines Commandobuttons eine Variable bestimmen und da...
06.06.2014 10:55:40
Thread-ID: 1364963
10 Beiträge
Click auf Submit Button in html via VBA
Henner

Hallo zusammen,
mit folgendem Code lasse ich Daten von Excel in html übergeben: Sub Anmelden() Dim IEApp As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate "https://xxx.xx/form.php?id=12345" Do: Loop Until IEApp.Busy = False Do: Loop Unti...
30.04.2016 13:50:49
Thread-ID: 1491291
4 Beiträge
CommandButton1_Click()
Tom

Hallo zusammen,
mein CommandButton1_Click() funktioniert im Modul1 nicht.
Wenn ich den Code in "Objekte Tabelle1(Tabelle1)" einfüge, funktioniert das ganze.
Was mache ich falsch?
MfG Tom
Private Sub CommandButton1_Click() Worksheets(1).Range("B11,E11,H11").Interior.Color = R...
13.09.2016 12:09:26
Thread-ID: 1514091
5 Beiträge
Anzeige
Commandbutton_click aufrufen
UweD

Hallo
habe im Codebereich von Tabelle2 einen Code auf einem Button liegen
Private Sub CommandButton1_Click() '*** Generieren 'mache alles mögliche end sub Vor dem Schließen möchte ich den "Knopf" noch einmal drücken
Mein Gedanke war.
ich rufe das aus der "Workbook_BeforeClose"...
25.08.2017 14:40:02
Thread-ID: 1576620
7 Beiträge
VBA per Tab-Taste von TextBox zu CommandButton
TextBox

Hallo liebe Excel Gemeinde,
ich habe eine TextBox1 in der ich Suchbegriffe eingebe.
Nun möchte ich, wenn ein Suchbegriff eingegeben wurde, dass ich
mit der Tab-Taste den CommandButton1 aktiviere,
und dann mit Enter den starten kann.
Kennt da jemand eine Lösung ?
Gruß
17.02.2019 10:25:04
Thread-ID: 1676110
9 Beiträge
Anzeige
[VBA] UserForm Click-Event für dyn. erz. Button
Nils

Hallo Leute,
ich habe eine Userform dynamisch mit Buttons bestückt. Je nachdem wie groß ein Array ist, werden 1 bis x Buttons erstellt.
Wie kann ich den Click-Event eines solchen Buttons definieren?
19.03.2019 16:47:00
Thread-ID: 1682182
2 Beiträge
Anzeige
VBA (Textfeld + CommandButton) zur Zeile springen
Frank

Hallo VBA Gemeinde,
ich benötige noch mal eure VBA Kenntnisse.
Hab eine UserForm erstellt.
Ich möchte anhand eines Textfeld und ein CommandButton zu einer bestimmten Zeile im Tabellenblatt springen (Die bestimmte Zeile wird über das Textfeld bestimmt).
Wer kann mir beim dem VBA-...
13.08.2019 19:43:19
Thread-ID: 1707504
20 Beiträge
CommandBarButton - Click nur einmal möglich
Volker Lehmann

Hallo,mit folgendem Problem komme ich nicht klar:ich habe im Cell-Kontext ein CommandBarButton eingefügt, der beim Click-Ereignis eine ComboBox in das aktive Arbeitsblatt einfügt. Das funktioniert soweit auch, allerdings nur beim ersten Click. Danach nicht mehr. Benutze ich hingegen einen regul...
04.12.2002 21:05:09
Thread-ID: 189047
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige