Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Datum in Zelle eintragen

Frage Microsoft Microsoft Office

Mitglied: tommhii

tommhii (Level 1) - Jetzt verbinden

14.01.2011 um 11:01 Uhr, 5141 Aufrufe, 2 Kommentare

ich möchte ein Datum in eine bestimmte Zelle eintragen

Hallo,

ich möchte durch anklicken einer bestimmte Zelle, das sich ein Kalender öffnet und das das ausgewählte Datum in diese Zelle eingetragen wird.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Count > 1 Then Exit Sub ' mehr als eine Zelle ausgewählt
Set RaBereich = Range("i6,i116")
'Intersect ("I7:i116")
If Not Intersect(Target, RaBereich) Is Nothing Then FRM_Kalender.Show
End Sub

das habe ich im Tabelleblatt stehen irgendwie ging das schon malaber seit dem ich diese Tabelle kopiert habe kommt immer folgender Fehler

Laufzeitfehler 424 objekt erforderlich

Danke

Gruß Tommhii
Mitglied: 76109
14.01.2011 um 12:06 Uhr
Hallo Tommhii!

Hier müsste anstatt einem Komma wohl ein Doppelpunkt in Range stehen (von Zelle I6 bis I116) oder nicht?
01.
Set RaBereich = Range("i6,i116")
Du kannst es aber auch so machen:
01.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
02.
    If Target.Count = 1 Then 'Eine Zelle ausgewählt 
03.
        If Not Intersect(Target, Range("I6:I116")) Is Nothing Then FRM_Kalender.Show 
04.
    End If 
05.
End Sub
Und Deine UserForm "FRM_Kalender" muss natürlich auch existieren

Gruß Dieter
Bitte warten ..
Mitglied: tommhii
14.01.2011 um 16:31 Uhr
Danke für deine Antwort hab den fehler gefunden
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excelfunktion Automatisches Eintragen von Datum und Uhrzeit bei ausgefüllter Zelle (3)

Frage von Scrises zum Thema Microsoft Office ...

Microsoft Office
gelöst Wenn Inhalt Zelle X dann bestimmte Zellen (2)

Frage von Knuefi zum Thema Microsoft Office ...

Microsoft Office
gelöst Formel für eine automatische Füllung anderer Zellen (1)

Frage von michael1306 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Viren und Trojaner

Link: Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (12)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...