Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1004to1008
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
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Felder per Button füllen

Felder per Button füllen
02.09.2008 10:36:00
Hanses
Hallo,
ich habe eine Arbeitsmappe mit mehreren Tab. Blättern.
In der Tabelle 1 tragen die Nutzer Daten ein.
Im gesperrten Tabellenblatt 2 soll ein Button geingefügt werden, der per Klick
folgendes tut.
Schaue in Blatt 1, ob in den Zellen P5 ein Startdatum und in P6 ein Enddatum steht.
Fülle dann in Tabellenblatt 2 im Bereich E4 : AI4 ab dem Startdatum bis zum Enddatum die Felder in Grau.
Danke für Eure Hilfe.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Felder per Button füllen
02.09.2008 12:45:42
fcs
Hallo Hanses,
ein entsprechendes Makro kann wie folgt aussehen.
Die Namen der Tabellenblätter muss du noch anpassen.
Gruß
Franz

Sub ZellenGrau()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim Zelle As Range
Dim Startdatum As Date, EndeDatum As Date
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
With wks1
'Prüfen Eingabe Starttermin
If IsEmpty(.Range("P5")) Or Not IsDate(.Range("P5")) Then
MsgBox "Startdatum in Blatt 1 fehlt oder ist falsch!"
'Prüfen Eingabe Endtermin
ElseIf IsEmpty(.Range("P6")) Or Not IsDate(.Range("P6")) Then
MsgBox "Enddatum in Blatt 1 fehlt oder ist falsch!"
'Vergleich Start-/Endtermin
ElseIf .Range("P6") = Startdatum And Zelle.Value


Anzeige
AW: Felder per Button füllen
02.09.2008 13:12:09
Hanses
Hallo Franz,
besten Dank für die schnelle Hilfe!!
Habe es ausprobiert. Leider gibt es eine Fehlermeldung. Habe den Code auf mein Blat angepaßt.
Der Fehler passiert bei der Einfärbung der Zellen. HAbe den Bereich mit Ausrufezeichen markiert.
Kannst Du mir helfen.
Danke und Gruß

Private Sub CommandButton7_Click()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim Zelle As Range
Dim Startdatum As Date, EndeDatum As Date
Set wks1 = Worksheets("Altersberechnung")
Set wks2 = Worksheets("Jan DP")
With wks1
'Prüfen Eingabe Starttermin
If IsEmpty(.Range("P44")) Or Not IsDate(.Range("P44")) Then
MsgBox "Startdatum in Blatt 1 fehlt oder ist falsch!"
'Prüfen Eingabe Endtermin
ElseIf IsEmpty(.Range("P47")) Or Not IsDate(.Range("P47")) Then
MsgBox "Enddatum im Ferienkalender fehlt oder ist falsch!"
'Vergleich Start-/Endtermin
ElseIf .Range("P47") = Startdatum And Zelle.Value


Anzeige
AW: Felder per Button füllen
02.09.2008 13:37:00
Hanses
Hallo Franz,
besten Dank für die schnelle Hilfe!!
Habe es ausprobiert. Leider gibt es eine Fehlermeldung. Habe den Code auf mein Blat angepaßt.
Der Fehler passiert bei der Einfärbung der Zellen. HAbe den Bereich mit Ausrufezeichen markiert.
Kannst Du mir helfen.
Danke und Gruß

Private Sub CommandButton7_Click()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim Zelle As Range
Dim Startdatum As Date, EndeDatum As Date
Set wks1 = Worksheets("Altersberechnung")
Set wks2 = Worksheets("Jan DP")
With wks1
'Prüfen Eingabe Starttermin
If IsEmpty(.Range("P44")) Or Not IsDate(.Range("P44")) Then
MsgBox "Startdatum in Blatt 1 fehlt oder ist falsch!"
'Prüfen Eingabe Endtermin
ElseIf IsEmpty(.Range("P47")) Or Not IsDate(.Range("P47")) Then
MsgBox "Enddatum im Ferienkalender fehlt oder ist falsch!"
'Vergleich Start-/Endtermin
ElseIf .Range("P47") = Startdatum And Zelle.Value


Anzeige
AW: Felder per Button füllen
02.09.2008 15:21:00
fcs
Hallo Hanses,
wenn du tatsächlich mit Excel 97 abeitest, dann muss du für den Commandbutton die Eigenschaft "FocusOnClick" auf "False" setzen. Das sollte das Problem beheben. Leider eine "Krankheit" der älteren Excelversion.
Ansonsten als Alternative den Button aus der Symbolleiste "Formular" verwenden und das Makro in einem allgemeinen Modul der Datei speichern.
Gruß
Franz

299 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
if mit or Verknüpfung?
Tom

Hi,
ich versuch gerade ein If mit Or Verknüpfung hinzubekommen.
Hier mal der Code:
If Datei1Name = "" Or Datei2Name = "" Or TextD1v = "" Or TextD2v = "" Or TextD1A = "" Or _ TextD1E Or TextD2An Then Error = MsgBox("Es müssen alle Felder gefüllt sein", 48, "Eingabe Fehler") Else <...
08.08.2008 11:29:57
Thread-ID: 1000222
9 Beiträge
Zeitformat aus England nicht korrekt
Uschi

Hallo liebes Forum,
folgendes Problem:
Ich bekomme eine Liste mit Zeiten aus Großbritannien, in der die Nullen fehlen, wenn es nicht über eine Stunde geht (:17:22). Ist die Zeit größer als eine Stunde, wird sie korrekt angezeigt (01:17:22). Kann ich irgendwie bei allen Zeiten, wo die St...
08.08.2008 12:29:48
Thread-ID: 1000252
3 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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