Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalender in C3 bis c10 statt nur c3?

Forumthread: Kalender in C3 bis c10 statt nur c3?

Kalender in C3 bis c10 statt nur c3?
lisa
Hallo
Über eine Userform gebe ich via Kalender ein Datum in C3 ein.
Ich würde es gern auf die Spalte C erweitert haben wollen.
Also jede Zelle der Spalte C soll bei selection die Kalendereingabe ermöglichen.
Das ist mein bisheriger VBA- Code 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = ("$C$3") Then
UserForm1.Show
End If
End Sub
Ich bin für jeden Vorschlag dankbar!
Gruß Lisa
Anzeige
If Target.Column = 3 Then oT
01.10.2009 10:21:40
Matthias
cool danke funktioniert super
01.10.2009 10:25:22
lisa
Danke für die schnelle Antwort!!
LISA
AW: Kalender in C3 bis c10 statt nur c3?
01.10.2009 10:23:11
Backowe
Hallo Lisa,
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Columns(3)) Is Nothing And Target.Count = 1 Then
UserForm1.Show
End If
End Sub
Gruß Jürgen
Anzeige
AW: funktioniert, dankeschön super schnell oT!
01.10.2009 10:26:18
lisa
So!
01.10.2009 10:49:12
Backowe
Hallo Lisa,
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Columns(3)) Is Nothing And Target.Count = 1 Then
UserForm1.Show
End If
If Target.Address = "$B$3" Then UserForm2.Show
End Sub
Gruß Jürgen
weitere Change selection!?
01.10.2009 10:42:23
lisa
Ich habe gleich noch eine Frage
Ich möchte ein weitere ChangSelection in Spalte B haben, die eine 2. Userform startet.
Dazu mein Versuch, der nicht funktioniert :-(
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 3 Then
UserForm1.Show
End If
zweites_Worksheet_SelectionChange Target
End Sub

Private Sub zweites_Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = ("$d$3") Then
UserForm2.Show
End If
End Sub
Habt ihr hierzu evtl auch noch eine Idee?
Gruß Lisa
Anzeige
weiteres SelectionChange
01.10.2009 10:47:54
Erich
Hi Lisa,
probier mal 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
UserForm1.Show
ElseIf Target.Address = "$D$3" Then
UserForm2.Show
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: weiteres SelectionChange
01.10.2009 10:57:17
lisa
Danke Erich
Ha, dass ist es, danke!
Ihr seid die größten!
Liebe Grüße Lisa
so sollte es klappen ...
01.10.2009 10:52:47
Matthias
Hallo Lisa
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 3 And Target.Count = 1 Then UserForm1.Show
If Target.Column = 4 And Target.Count = 1 Then UserForm2.Show
End Sub
Gruß Matthias
Anzeige
AW: so sollte es klappen ...
01.10.2009 10:58:36
lisa
Gruß und Danke auch dir Matthias
Es funktioniert!
Lisa
Ergänzung
01.10.2009 10:58:07
Erich
Hi nochmal,
"Target.Count = 1" zu prüfen erscheint (jetzt endlich) auch auch mir sinnvoll: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 3 Then
UserForm1.Show
ElseIf Target.Address = "$D$3" Then
UserForm2.Show
End If
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
;

Forumthreads zu verwandten Themen

X-Achse innerhalb eines OWC10.Objektes
Marc

Guten Tag zusammen ..
da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar
ich versuche eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch darzustellen. Dabei werden die minut...
12.08.2008 13:39:59
Thread-ID: 1001188
3 Beiträge
Hilffeeee: Laufzeitfehler 1004
Tanya

Hallo,
ich habe eine Makro, die mehrere Diagramme aktualisiert.
codeabschnitt:
Sheets("Druck-stat").Select
ActiveChart.SeriesCollection(1).XValues = "=Mitteldaten!R9C2:R" & hilfs & "C2"
ActiveChart.SeriesCollection(1).Values = "=Mitteldaten!R9C5:R" & hilfs &...
14.08.2008 15:35:58
Thread-ID: 1001894
2 Beiträge
Anzeige
Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Anzeige
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Anzeige
zeile ermitteln aus : A10:C26
reinhardt

Hallo.
In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
den Wert 149 aus BC150:M299 erre...
19.09.2008 09:22:00
Thread-ID: 1010909
2 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Tabellenblattnahme, Beitrag 1008-1012 21.09.08
Werner

Hallo Daniel,
Deine Hilfe mit den Code:
Private Sub Worksheet_Change _ (ByVal Target As Range) If Target.Address = "$D$12" Then TabelleXXX.Name = Range("D12").Value End If End Sub
hat Super funktioniert, nochmals Danke!!
Nun habe ich aber noch ein weiteres Problem, ich habe...
24.09.2008 22:57:34
Thread-ID: 1012192
4 Beiträge
Laufzeitfehler 1004
Jörg

Ich erhalte einen merkwürdigen Fehler, bei ug. Script. Die Zeile
"Range(Cells(intRow, 1), Cells(intRow, 2)).Select" löst den "Laufzeitfehler 1004 / Anwendungs- oder objektorientierter Fehler" aus.
Ich kann hier keinen Fehler entdecken. Woran liegt's? Gibt's eine Idee? Danke für Eure Mü...
29.09.2008 11:35:58
Thread-ID: 1013056
10 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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