37414
22.10.2020, aktualisiert um 10:32:28 Uhr
2804
4
0
Excel 2016 - Foto per Bedingung bzw. Makro in Zelle einfügen
Hallo,
nachdem mein letzter Thread gelöst ist, möchte ich für ein weiteres Problem in der gleichen Excel-Datei diesen neuen Thread erstellen.
Hier ist das Problem, dass ein Foto über eine Wenn-Dann-Abfrage, bzw. per Makro in eine bestimmte Zelle eingefügt werden soll.
Hierbei gibt es jedoch ein paar Probleme:
1) Das Foto soll in einem anderen Tabellenblatt eingefügt werden. Dies funktioniert bisher nicht
2) Da die Excel-Datei von verschiedenen Mitarbeiter/-innen ausgefüllt werden soll, wobei das einzufügende Foto immer auf deren Desktop liegt, wollte ich im Code des Makros die Variable "%username%" benutzen. Dann erhalte ich jedoch eine Fehlermeldung, die sich genau auf die Codezeile mit der Variable bezieht (siehe Screenshot)
Wenn ich - statt der Variable - meinen Benutzernamen eingebe, funktioniert das Makro.
Hier der aktuelle Makro-Code:
Und hier der Code, der im 1. Tabellenblatt "Eingaben" in Zeile E5 steht:
Das Foto soll in Tabellenblatt 2 "U-Antrag" in Zelle B33 eingesetzt werden.
Vielleicht kann hier jemand von Euch weiterhelfen.
Grüße,
imebro
nachdem mein letzter Thread gelöst ist, möchte ich für ein weiteres Problem in der gleichen Excel-Datei diesen neuen Thread erstellen.
Hier ist das Problem, dass ein Foto über eine Wenn-Dann-Abfrage, bzw. per Makro in eine bestimmte Zelle eingefügt werden soll.
Hierbei gibt es jedoch ein paar Probleme:
1) Das Foto soll in einem anderen Tabellenblatt eingefügt werden. Dies funktioniert bisher nicht
2) Da die Excel-Datei von verschiedenen Mitarbeiter/-innen ausgefüllt werden soll, wobei das einzufügende Foto immer auf deren Desktop liegt, wollte ich im Code des Makros die Variable "%username%" benutzen. Dann erhalte ich jedoch eine Fehlermeldung, die sich genau auf die Codezeile mit der Variable bezieht (siehe Screenshot)
Wenn ich - statt der Variable - meinen Benutzernamen eingebe, funktioniert das Makro.
Hier der aktuelle Makro-Code:
Sub MakroU_start()
'
' MakroU_start Makro
' Unterschrift MA einfügen
'
' Tastenkombination: Strg+u
'
Sheets("U-Antrag").Select
Range("B33").Select
ActiveSheet.Pictures.Insert("C:\Users\Mein-Name\Desktop\Unterschrift.jpg"). _
Select
Selection.ShapeRange.IncrementTop 0.5
Selection.ShapeRange.IncrementTop 0.5
Selection.ShapeRange.IncrementTop 0.5
Selection.ShapeRange.IncrementTop 0.5
Selection.ShapeRange.IncrementTop 0.5
Selection.ShapeRange.IncrementLeft 0.5
Selection.ShapeRange.IncrementLeft 0.5
Selection.ShapeRange.IncrementLeft 0.5
Selection.ShapeRange.IncrementLeft 0.5
Selection.ShapeRange.IncrementLeft 0.5
Range("E38").Select
End Sub
Und hier der Code, der im 1. Tabellenblatt "Eingaben" in Zeile E5 steht:
=WENN(C5="Ja";MakroU_start();"nichts")
Das Foto soll in Tabellenblatt 2 "U-Antrag" in Zelle B33 eingesetzt werden.
Vielleicht kann hier jemand von Euch weiterhelfen.
Grüße,
imebro
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 615184
Url: https://administrator.de/contentid/615184
Ausgedruckt am: 29.03.2024 um 12:03 Uhr
4 Kommentare
Neuester Kommentar