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

Makro ohne Button laufen lassen

Forumthread: Makro ohne Button laufen lassen

Makro ohne Button laufen lassen
29.01.2007 10:01:11
Klaus
Hallo liebe Könner!
Wie kann ich ein Makro, welches ich mir aus den Beitträgen Kopiere so in eine Excel Datei einfügen, daß es ohne die Errichtung eines Buttons automatisch abläuft?
Danke für einen Tip
Klaus
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ohne Button laufen lassen
29.01.2007 10:04:47
Uduuh
Hallo,
wann soll es laufen?
Du kannst Makros auch in ein Modul einfügen und über Extras-Makro-Makros starten.
Gruß aus’m Pott
Udo

AW: Makro ohne Button laufen lassen
29.01.2007 10:19:13
Klaus
Hallo UDO!
dieses Makro sollte beim Schließen die Datei an einem anderen Ort( Pfad, den man eingibt, oder besser wäre nur bestätigen muß!) nochmals Speichern
Danke für die Hilfe
Blatt speichern

Sub Blattspeichern()
pfad = InputBox("Geben Sie den Pfad ein, in dem das Blatt gespeichert werden soll!", , "C:\bak\")
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is <> "\"
pfad = pfad & "\"
End Select
ActiveWorkbook.Copy
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & ActiveWorkbook.Name
ActiveWorkbook.Close SaveChanges:=False
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang war nicht erfolgreich")
ActiveWorkbook.Close SaveChanges:=False
Case Else
End Select
End 


Sub
Anzeige
AW: Makro ohne Button laufen lassen
29.01.2007 10:25:19
Uduuh
Hallo,
in DieseArbeitsmappe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
pfad = InputBox("Geben Sie den Pfad ein, in dem das Blatt gespeichert werden soll!", , "C:\bak\")
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is <> "\"
pfad = pfad & "\"
End Select
On Error GoTo ErrorHandler
ActiveWorkbook.SaveCopyAs Filename:=pfad & ActiveWorkbook.Name
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang war nicht erfolgreich")
ActiveWorkbook.Close SaveChanges:=False
Case Else
End Select
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: Makro ohne Button laufen lassen
29.01.2007 10:36:17
Klaus
hab den code nun bei dem Tabellnnamen li unten rechte Maustaste Code eingefügt, da läuft er aber nicht. Wie mach ich´s richtig? Danke
AW: Makro ohne Button laufen lassen
29.01.2007 10:44:29
Uduuh
Hallo,
nicht in Tabelle. In DieseArbeitsmappe
Gruß aus’m Pott
Udo

AW: Makro ohne Button laufen lassen
29.01.2007 10:51:51
Klaus
Danke das funktioniert!
Könntest du mir noch eine kl. Hilfe geben:
Wie kann ich den Pfad nur noch bestätigen , ohne ihn immer händisch eingeben zu müssen?
Danke im Voraus!
Klaus
Anzeige
AW: Makro ohne Button laufen lassen
29.01.2007 10:57:00
Uduuh
Hallo,
?
c:\bak\ ist doch Vorgabe für die Inputbox. Brauchst du doch nur auf Enter zu drücken.
Gruß aus’m Pott
Udo

geht doch so einfach, wenn man´s kann, danke
29.01.2007 10:58:57
Klaus
Danke
;

Forumthreads zu verwandten Themen

Button auf Sheet mit Funktion aus Userform
Macro

Hi,
ich habe eine Sheet, wo beim starten eine Userfoem aufgeht. Auf der Userform hat es Buttons drauf mit verschiedenen Funktionen.
Nun habe ich einen Button direkt auf meinem Sheet und möchte von da aus eine Funktion aus der Userform aufrufen. Das habe ich mit :
Call UserForm1.Comm...
24.11.2008 09:16:13
Thread-ID: 1027197
4 Beiträge
Auswahlbutton oder Zelle mit Auswahlfunktion
Michael

In einer Reihe von untereinander stehenden Zellen möchte ich aus einem anderen Blatt bzw. einer anderen Datei einzelne Daten auswählen (aus einer Spalte mit mehreren Hundert vergebenen Auftragsnummer).
Diese ausgewählte Auftragsnummer soll sich dann in das aktive Feld eintragen.
Beispie...
02.03.2009 11:09:27
Thread-ID: 1055472
4 Beiträge
Zeilen einfügen mit Formeln per CommandButton
Tina

Hallo zusammen
Wiedermal brauche ich eure Hilfe bei einem Problem. Ich möchte per CommandButton automatisch Zeilen oberhalb des Buttons einfügen. Dabei soll die Zeile inkl. Formeln eingefügt werden.
Dazu habe ich bisher folgenden Code: Private Sub CommandButton1_Click() Dim lngInsertRo...
26.04.2012 08:14:44
Thread-ID: 1260980
3 Beiträge
Button mit Speicher-Funktion funktioniert nicht.
Basti

Schönen guten Abend,
ich habe in einem Arbeitsblatt ein CommandButton eingefügt und in VBA folgendes hinterlegt:
Private Sub Speichern_Click() Speichern4 End Sub
Private Sub Speichern4 () Dim p_Pfad4 As String Dim p_filename4 As String p_Pfad4 = "J:\Basti\Kosten\Reisekosten\Akt...
29.08.2012 18:28:12
Thread-ID: 1276847
3 Beiträge
Schaltbuttonfunktion einfügen
Hans

Hallo Forum,
nach langer Zeit melde ich mich mal wieder bei euch um ein Problem zu lösen.
Ich habe in meiner Rechnungstabelle ein kleines Add On installiert (reno20.exe)welches auf Klick auf den Schaltbutton eine neue Rechnungsnummer in der Tabelle erstellt. Geht soweit ganz gut.
N...
23.08.2013 20:35:08
Thread-ID: 1328179
4 Beiträge
2 Button mit Zeile einfügen
marcus

Hallo Exceler,
ich möchte (je nach Lage) 2 oder 3 Buttons, mit der Funktion "Neue Zeile einfügen", in verschiedenen Zeilen oder Bereichen einfügen mit VBA. Der erste ist kein Problem, da die Zeile immer die gleiche ist, an der er einfügen muss. Jedoch die darauf folgenden kann ich nicht kon...
22.07.2014 14:29:03
Thread-ID: 1371590
2 Beiträge
Button mit Datumsfunktion
Addi
Hallo Zusammen,
ich möchte in einem Excel-File einen Button anlegen, der bei Betätigung das die genaue Uhrzeit, ggf. auch das Datum in die Zelle reinschreibt, in der ich gerade drin stehe.
Kann man das mit VBA realisieren?
Vielen Dank für Eure Hilfe.
Viele Grüße
Addi
03.10.2014 16:48:20
Thread-ID: 1384689
5 Beiträge
Zeilen löschen/einfügen mit Funktionen
Holm

Hallo liebes Forum,
ich versuche grade, ein gelöstes Problem auf eine 2. Tabelle von mir zu "übertragen" bzw anzupassen, scheitere aber bisher... (wiedermal! :-( )
es geht wie immer um bestimmte Funktionen:
(siehe auch meinen letzten Beitrag, den Matthias mit Geduld gelöst hat!!)
15.03.2015 08:55:57
Thread-ID: 1415065
10 Beiträge
Anzeige
Bereich nach der letzten Zeile einfügen mit button
Mr.Pink

Hallo zusammen,
ich sitze vor folgendem Problem:
Ich habe einen Bereich an Daten, Zeile 12 bis 27. Diese Daten sollen per Button genau unterhalb des ersten Bereichs eingefügt werden. Also genau nach der letzten Zeile die mit Daten gefüllt ist.
Kann mir jemand einen Tipp geben wie...
24.03.2015 18:52:21
Thread-ID: 1416955
2 Beiträge
neue Zeile mit SUMME-Funktion einfügen
Larissa

Hallo,
habe keine VGA Kenntnisse, versuche aber trotzdem
habe eine Liste, die so aussieht:
Stück Länge Paket-Nr. Gewicht Fläche
13 18360 101 2546 238
3 12360 101 395 37
14 18360 102 4236 397
würde gerne zwischen den unte...
24.06.2015 11:52:01
Thread-ID: 1432833
6 Beiträge
Anzeige
tabelle einfügen mit funktion
Petro

Hallo leute
habe eine excel datei und zwar sind zwei Tabellen
Tabelle 1
Empfänger IBAN Betrag Verwendungszweck...
22.10.2015 14:27:36
Thread-ID: 1453805
7 Beiträge
Bild einfügen und löschen mit Button
phlp

Moin zusammen,
ich füge in einem Formular über einen Button ein Bild in eine bestimmte Zelle (A10) ein. Vorher wird noch geprüft ob sich bereits ein Bild in der entsprechenden Zelle befindet. Wenn ja, wird es gelöscht. Das funktioniert einwandfrei.
Jetzt habe ich aber das Problem, dass...
22.03.2016 16:27:25
Thread-ID: 1483589
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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