Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Checkboxeintrag in Zelle in Abhängigkeit von Datum

Checkboxeintrag in Zelle in Abhängigkeit von Datum
22.03.2006 09:10:35
Datum
Hallo!
Ich bekam von Ingolf dankenswerterweise folgende Lösung:
Range("A1")=Userform1.Checkbox
Nach Ausführung des Codes wird in die Zelle A1 WAHR eingetragen.
Ich würde jetzt zu nachstehendem Muster folgende Lösung suchen:
Ist der 01.01.2006 aktivert und wird bei Huber3 in der Checkbox ein Hackerl gesetzt, dann soll dieses Hackerl in E4 eingetragen werden.
Ist der 02.01.2006 aktiviert und wird bei Huber8 in der Checkbox ein Hackerl gesetzt, dann soll dieses Hackerl in E19 eingetragen werden.
PS: Was gäbe es bitte noch für eine Lösung, dass statt WAHR eine 1 eingetragen wird?
https://www.herber.de/bbs/user/32118.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkboxeintrag in Zelle in Abhängigkeit von Datum
22.03.2006 09:37:46
Datum
Hallo!
Mit folgender Lösung wird -1 und waagrecht eingetragen.
also wenn ich am 01.01.2006 bei Huber1,Huber2 und Huber3 ein Hackerl mache, dann wird in der Zeile von Huber1 folgendes eingetragen:
-1,-1,-1 und 7 mal ein 0
Könnte man diesen Code nach einer dementsprechenden Änderung bitte verwenden?
Wo müßte ich dann hier bitte die Änderungen vornehmen?
Danke
Josef

Private Sub CommandButton3_Click()
Dim rngFind As Range
Dim intCount As Integer, intCol As Integer, lngRow As Long
If Not IsDate(TextBox21) Then Exit Sub
With ActiveSheet
Set rngFind = .Range("B:B").Find(What:=CDate(TextBox21), LookAt:=xlWhole, LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
lngRow = rngFind.Row
intCol = 5
For intCount = 1 To 10
Select Case intCount
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
If Len(Trim$(Controls("CheckBox" & intCount))) > 0 Then
If IsNumeric(Controls("CheckBox" & intCount)) Then
.Cells(lngRow, intCol) = CDbl(Controls("CheckBox" & intCount))
Else
.Cells(lngRow, intCol) = Controls("CheckBox" & intCount)
End If
End If
intCol = intCol + 1
Case Else
lngRow = lngRow + 1
intCol = 5
End Select
Next
End If
Set rngFind = Nothing
End With
End Sub

Anzeige
So würde es klappen, aber....
22.03.2006 11:14:31
Josef
Hallo!
So würde es klappen.
Mein letztes Problem ist jetzt noch folgendes:
als Wert wird in die Zelle -1 eingetragen.Wie erreiche ich bitte, dass eine 1 eingetragen wird?

Private Sub CommandButton1_Click()
Dim rngFind As Range
Dim intCount As Integer, intCol As Integer, lngRow As Long
If Not IsDate(TextBox21) Then Exit Sub
With ActiveSheet
Set rngFind = .Range("B:B").Find(What:=CDate(TextBox21), LookAt:=xlWhole, LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
lngRow = rngFind.Row
intCol = 5
For intCount = 1 To 19
Select Case intCount
Case 1, 3, 5, 7, 9, 11, 13, 15, 17, 19
'If Trim$(Controls("CheckBox" & intCount)) > 0 Then
If Len(Trim$(Controls("CheckBox" & intCount))) > 0 Then
If IsNumeric(Controls("CheckBox" & intCount)) Then
.Cells(lngRow, intCol) = CDbl(Controls("CheckBox" & intCount))
Else
.Cells(lngRow, intCol) = Controls("CheckBox" & intCount)
End If
End If
intCol = intCol + 1
Case Else
lngRow = lngRow + 1
intCol = 5
End Select
Next
End If
Set rngFind = Nothing
End With
End Sub

Danke
Josef
Anzeige

316 Forumthreads zu ähnlichen Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Anzeige
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Anzeige
Summe von bis, abhängig vom Datum in Zelle C4
bis,

Vielen Dank für eure Hilfe, Beispieldatei ist hier zu finden https://www.herber.de/bbs/user/56782.xls
Hallo liebe Helfer,
ich habe ein Tabellenblatt, mit mehreren Zeilen als im Beispiel angegeben, mit IST-Werten (Monat schon kummuliert) und ein Tabellenblatt mit den PLAN-Werten für jede...
14.11.2008 11:30:00
Thread-ID: 1024502
7 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Datum automatisch in andere Zelle kopieren
ThomasB

Hallo,
Nach langem möchte ich ein wenig in Excel wieder üben. Für meine Frau will ich eine Zuchttabelle für Kaninchen erstellen. soweit habe ich das auch in Griff. Nur mit dem Datum und der automatischen Kopierung gibt es ein kleines Problem. In der Celle C2 wird das erste Deckdatum eingetr...
15.01.2009 14:00:41
Thread-ID: 1040123
4 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge

Links zu Excel-Dialogen

TextBox UserForm

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