Thema Datum  Von Nutzer Rating
Antwort
Rot Kleines Problem mit Fotoupload
17.11.2016 13:26:41 Florian
NotSolved
17.11.2016 13:28:40 Gast14601
NotSolved
17.11.2016 13:40:04 Heiko
Solved
21.11.2016 17:21:56 Florian
NotSolved
17.11.2016 13:42:17 Heiko
NotSolved

Ansicht des Beitrags:
Von:
Florian
Datum:
17.11.2016 13:26:41
Views:
854
Rating: Antwort:
  Ja
Thema:
Kleines Problem mit Fotoupload

Hallo,

Ich möchte über einen Schalter in Excel ermöglich, dass ein Foto in Spalte H in Blatt "Mängel Übersicht" eingefügt wird. Dazu habe ich folgenden Code benutzt

'#### ab hier Fotoupload
Sheets("Mängel Übersicht").Rows(intErsteLeereZeile).RowHeight = 70
'On Error GoTo ERR
Dim DDDD As String
Dim CCCC As Range
Dim GGGG As Double

Dim SEGG
For Each SEGG In ThisWorkbook.Worksheets("Mängel Übersicht").Shapes
If Not Intersect(SEGG.TopLeftCell, ThisWorkbook.Worksheets("Mängel Übersicht").Cells(intErsteLeereZeile, 8)) Is Nothing Then SEGG.Delete
Next SEGG

Set CCCC = ThisWorkbook.Worksheets("Mängel Übersicht").Cells(intErsteLeereZeile, 8)
DDDD = Application.GetOpenFilename(, , "Bild auswählen", , False)
Select Case Right(DDDD, 3)
Case "ani", "apng", "jpeg", "jpg", "png"
ThisWorkbook.Worksheets("Mängel Übersicht").Pictures.Insert(DDDD).Select 'hier stimmt irgendwas nicht
With Selection.ShapeRange 'sobald ein anderes Arbeitsblatt aktiv ist, kommt hier eine Fehlermeldung. Wahrscheinlich ist die Zuweisung falsch
.Top = CCCC.Top
.Left = CCCC.Left
GGGG = WorksheetFunction.Min(CCCC.Width / .Width, CCCC.Height / .Height)
.Height = .Height * GGGG
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Case Else
MsgBox "Sie haben kein gültiges Bild ausgewählt", 48, "Bild einfügen"
End Select
'Exit Sub
'ERR:


Unload frmEingabe 'Formular Eingabe wird geschlossen
End Sub

 

Solange das Blatt "Mängel Übersicht" aktiv ist, klappt alles wunderbar. Wenn ich das Makro aber von woanders starte, kommt eine Fehlermeldung. Offensichtlich müssteich irgendwo noch zuweisen, dass er in dieses Blatt gehen soll, aber ich habe keine Ahnung wo.

Ist bestimmt ein ganz einfacherer Fehler, aber ich verzweifle im Moment daran.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Kleines Problem mit Fotoupload
17.11.2016 13:26:41 Florian
NotSolved
17.11.2016 13:28:40 Gast14601
NotSolved
17.11.2016 13:40:04 Heiko
Solved
21.11.2016 17:21:56 Florian
NotSolved
17.11.2016 13:42:17 Heiko
NotSolved