Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro in Zellabhängigkeit durchführen

Forumthread: Makro in Zellabhängigkeit durchführen

Makro in Zellabhängigkeit durchführen
13.01.2003 16:30:32
Xico
Hallo,

per Schaltfläche kann folgendes Makro gestartet werden, das Beginn 9:00 und Ende 17:00 setzt:

Der Andwender dieser Datei soll aber seine Schaltfläche selber bestimmen können, wie Beginn und Ende zu definiert sind. Dazu kann er z.B. in Zelle A1 die Beginn-Zeit eintragen und in Zelle A2 die Ende-Zeit. Natürlich soll die Schaltfläche auch nach diesen Zellen benannt werden: z.B. "9-17" (kann auch eine Kombination in zelle A3 sein).

Hiebei bitte ich um Unterstützung.

Danke und Gruss
Xico

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro in Zellabhängigkeit durchführen
13.01.2003 19:35:00
Steffan
Hi Xico,

kopiere folgenden Code in den Codebereich Deines Tabellenblattes:


Private Sub CommandButton1_Click()

zeit_anpassen

End Sub
 

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("A1").Address Or Target.Address = Range("B1").Address Then _

    ActiveSheet.CommandButton1.Caption = Format(Range("A1").Value, "HH:MM") & " - " & _

    Format(Range("B1").Value, "HH:MM")

End Sub
 

Sub zeit_anpassen()

Dim startZeit As Date

Dim endZeit As Date

startZeit = Range("A1").Value

endZeit = Range("B1").Value

'....

'Dein Code

'....

End Sub
 

Wenn Du auf Deinem Blatt eine Schaltfläche mit dem Titel "CommandButton1" hast, passiert folgendes:
- wenn in A1 oder B1 eine Änderung erfolgt, wird die Beschriftung der Schaltfläche entsprechend der dort gemachten Angaben geändert
- beim Klick auf die Schaltfläche wird der Wert aus A1 und B1 eingelesen und an die Variablen startZeit und endZeit übergeben
- die Werte kannst Du dann weiterverarbeiten, also z.B. in Zellen schreiben (z.B. Range("A4").Value = startZeit oder eleganter: Cells(4,3).value = startZeit)

Ist Dir damit geholfen?

Steffan.

Anzeige
;

Forumthreads zu verwandten Themen

Dringend Hilfe für komplexe Suchfunktion in VBA
AXSIE

Hallo Excel Forum,
Für folgendes Problem benötige ich dringend Hilfe:
Ausgangssituation:
es existieren zwei Dateien.In der einen Datei befinden sich zwei Tabellenblätter mit identischer Spaltenanordnung und Spaltenüberschriften. Ihre Namen sind: „Tabelle1“ und „Archi...
03.08.2002 14:07:25
Thread-ID: 144410
10 Beiträge
Euro in Menüleiste
Olaf

Guten Morgen Leute,
Wie ist es möglich in Excel 97 das Euro Zeichen in der Menüleiste zu haben.
Um Hilfe wäre ich sehr dankbar.
Mfg
Olaf

17.02.2003 09:55:20
Thread-ID: 220075
4 Beiträge
ganze einfache Berechnung durchführen
Stefan
Ich möchte dass wenn ich in der einen Zelle zB schreibe: "3+5+2*6", er in einer anderen Zelle das Resultat hinschreibt. Bis jetzt habe immer die Rechnung mit Ctrl+C kopiert und in die nächste Zelle ein "=" und Ctrl V gemacht. Aber da muss es doch eine schnellere Möglichkeit geben oder?
05.11.2003 22:42:11
Thread-ID: 333873
7 Beiträge
FTP-Upload in VBA durchführen
Thomas Wieser
Hallo,
ich muss eine Datei per FTP hochladen. Ich habe schon im Internet gesucht, ich kann aber nicht viel damit anfagen, vor allem weil ich keine MSINET.OCX finde, wie es zB. hier http://officeone.mvps.org/vba/ftp_upload_file.html beschrieben wird.
Könnt ihr mir da weiterhelfen?

Vie...
09.04.2004 12:19:45
Thread-ID: 411531
3 Beiträge
Definierten Name über eine Suchfunktion finden
Mario

@ All,
kann mir jemand weiterhelfen? Ich will einen von mir definierten Namen in einem
Sheet finden. Jedoch nicht über Einfügen, Name, Definieren. Über die Suchfunktion in der Taskleiste funktioniert das leider nicht hab es auch scon mit ="..." versucht. Wär super wenn mir jemand einen...
14.10.2004 13:04:11
Thread-ID: 500700
4 Beiträge
range.select aufrund Colorindex durchführen
Hans

Hallo Experten,
ich hätte folgende Aufgabe zu lösen:
über Doppelklick auf eine beliebige EINGEFÄRBTE Zelle soll
- der gesamte gleich eingefärbte Bereich um die angeklickte Zelle herum selektiert werden. Ist die Doppelgeklickte zelle nicht eingefärbt, soll keine Aktion stattfinden....
23.12.2004 20:27:48
Thread-ID: 537663
6 Beiträge
Anzeige
Makro nach Zelleingabe automatisch durchführen
Tom

Hallo,
ich versuche ein Makro (sortieren) automatisch starten zu lassen, wenn ich in Zelle G31:I155 etwas eingebe.
Ich habe einen Lösungsansatz (von TinoB) im Archiv gefunden, komme aber nicht so recht weiter ...
Meine Lösung sieht so aus (funktioniert aber nicht ...)
Private S...
03.01.2005 21:56:15
Thread-ID: 541365
16 Beiträge
Spalte die automatisch eine Rechnung durchführt
Christian

Hallo alle zusammen und frohes neues Jahr!
Also in der unten angegebenen Tabelle befindet sich ein aktuelles Ranking, bei diesem hätte ich gern in der Tabelle im 2.Reiter eine 4. Spalte die sollte für jeden user die Anzahl der getippten Spiele, also nur dort wo für ihn auch etwas drin steht,...
05.01.2005 10:36:13
Thread-ID: 542093
3 Beiträge
"Endgültig löschen?", Nachfrage verhindern
F.M.

Ich schon wieder...
Jetzt hehts darum, ein Blatt per Makro zu löschen. Die Anweisung "ActiveWindow.SelectedSheets.Delete" ist klar. Dann kommt aber die Frage, ob endgültig gelöscht werden soll. Das kann man doch bestimmt mit einem Zusatz hinter "delete" verhindern!?! Kann in der VBA-Hilfe n...
22.07.2005 13:06:50
Thread-ID: 641055
5 Beiträge
berechnung nach textbox eingabe durchführen
tini

hallo
hab 2 aufgaben
1) habe drei textbox-eingabfelder und möcht mittels tabulator taste nach der eingabe in das nächste eingabefeld(textbox) springen
2) nach jeder eingabe sollen automatisch alle berechnungen durchgeführt werden
für die die werte in den eigabefeldern notwendig...
09.10.2005 17:21:37
Thread-ID: 679018
2 Beiträge
Aktion beim Aktivieren eines Sheets durchführen
Peter

Hallo
Ich möchte in einer Arbeitsmappe beim Anwählen irgend eines Sheets immer sicherstellen, dass "BERECHNEN" nicht auf manuell gestellt ist.
Ich nehme an, dass ich dazu
?
For Each Sh In Worksheets
Sh.Activate
With Application
.Calculation = xlAutomatic
End Wit...
07.02.2006 16:48:48
Thread-ID: 729302
3 Beiträge
Anzeige
2 UserFormen geöffnet-in bd, eine Aktion durchführ
Josef

Hallo!
Ich habe eine UserForm1 und öffne über die diese eine UserFomr2.
Die UserForm2 wird nur zur Hälfte über die UserForm1 gelegt. Wie müßte ich bitte vorgehen,dass wenn die UserForm2 geöffnet im Vordergrund liegt ein Steuerelement in der UserForm1 gedrückt werden kann, ohne dass die...
08.01.2007 08:03:54
Thread-ID: 834711
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