Makro für eine Klick und Enter Schlaufe
15.01.2016 14:12:46
bykov
Ich habe ein Excel Sheet mit 4 Tabellenblättern. In diesen Tabellen sind ca. 10 - 19 Bilder die ich mittels Image1 - Image19 und draufklicken aus einem Fotoordner hole.
Ebenfalls wird durch ein Makro der Name des Bildes direkt ins Suchfeld geschrieben.
Konkret sieht das so aus
Private Sub Image1_Click()
Dim fd As FileDialog
Dim Pfad As String
Dim Datei As String
Pfad = "Pfad\"
If ActiveSheet.Range("S19") = "FRE_" Then
Datei = "leer"
Else
Datei = ActiveSheet.Range("S19")
End If
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.InitialFileName = Pfad & Datei
.Filters.Add "Images", "*.bmp", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Me.Image1.Picture = LoadPicture(vrtSelectedItem)
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
End Sub
Die Fotos ändern immer wieder und die Tabellen müssen aktualisiert werden.
Nun möchte ich eine Makro das mir die Befehle anklicken des Images und Befehl Enter bei allen auslöst.
Ist das möglich?
Zu meinen Excel-Kenntnissen, ich habe mir fast alles selber beigebracht und nie einen Kurs besucht. Wenn ich nicht weiterkomme frage ich oder suche im Web nach einer Lösung