|
Der Code ist ja fast das gleiche oder?
Ich bin leider erst am Anfang was Excel Codes betrifft.
Mein Anliegen ist,nicht immer das Datum reinzuschreiben sondern per Button in eine X-Beliebes Feld das aktuelle Datum einzufügen.
In diesem Code kann ich die Zellen auswählen und dann den Hyperlink einfügen.
Sowas brauch ich jetzt für das Datum oder Text/Zahl einzufügen.
Option Explicit
Private Sub CommandButton1_Click()
'1. Zelle auswählen.
'2. Mit einem Command Button das ganze Starten
'3. Datei dann in ..... Fenster auswählen.
Dim objFileDialog As Office.FileDialog
Dim mvarSelected As String
Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogFilePicker)
With objFileDialog
.ButtonName = "Auswahl übernehmen"
.Title = "Datei zum Hyperlink wählen"
.InitialView = msoFileDialogViewList
.Show
If .SelectedItems.Count = 1 Then
mvarSelected = (.SelectedItems(1))
With ActiveSheet
.Hyperlinks.Add Anchor:=.Range(ActiveCell.Address), _
Address:=mvarSelected, _
ScreenTip:=""
', TextToDisplay:="irgendwas"
End With
End If
End With
End Sub
|