Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie lokale Bild-Quelle in Zelle schreiben?

Wie lokale Bild-Quelle in Zelle schreiben?
14.04.2016 12:43:35
Juergen
Hallo zusammen,
ich habe folgendes Erfassungsformular erstellt, was soweit auch funktioniert:
  • 
Private Sub cmdAbbruch_Click()
'schliesst die Erfassung der Bauteile
Unload frmErfassung
End Sub


    
Private Sub cmdEingabe_Click()
'fügt die Daten in das Tabellenblatt ein und schliesst die Erfassung der Bauteile
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.txtDatum.Value
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtObjektstrasse.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtObjektstandort.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtEinbaulage.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtAnzahl.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtBauteil.Value
Unload frmErfassung
End Sub


    
Private Sub UserForm_Initialize()
'Datumswert aktuell bei Formularaufruf eintragen
With Me
.txtDatum.Value = Date
End With
End Sub

    • Nun möchte ich auch noch einen Bild local von der Festplatte auswählen und dann als Link an dem Datensatz anfügen (z.B. in der Zeile an der 7. Stelle der Datenzeile)
    Kann mir jemand unter die Arme greifen und mir die Codezeile benennen? Ich steh nämlich auf dem Schlauch :/
    Danke!
    Gruss, Juergen

    6
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Wie lokale Bild-Quelle in Zelle schreiben?
    14.04.2016 13:03:07
    Rudi
    Hallo,
    prinzipiell so: 
      With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "c:\test\"
.Filters.Add "Bilder", "*.jpg"
.FilterIndex = .Filters.Count
If .Show = -1 Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(Rows.Count, 1).End(xlUp).Offset(, 6), _
Address:=.SelectedItems(1)
End If
End With
    Gruß
    Rudi

    AW: Wie lokale Bild-Quelle in Zelle schreiben?
    14.04.2016 13:13:51
    Juergen
    Hallo Rudi,
    danke für deine schnelle Hilfe!
    Frage: ich hab den Code auf einen Button innerhalb meines Formulares gelegt. Der Code funktioniert einwandfrei (Danke!!) aber es ist leider so, dass sobald ich den Button drücke auch die Zelle oberhalb der beabsichtigten gefüllt wird. Erst nach Übernahme der restlichen Daten werden dann eine Zeile drunter geschrieben.
  • 
Private Sub cmdAbbruch_Click()
'schliesst die Erfassung der Bauteile
Unload frmErfassung
End Sub


    Private Sub cmdEingabe_Click()
'fügt die Daten in das Tabellenblatt ein und schliesst die Erfassung der Bauteile
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.txtDatum.Value
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtObjektstrasse.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtObjektstandort.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtEinbaulage.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtAnzahl.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtBauteil.Value
Unload frmErfassung
End Sub


    Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "c:\tmp\"
.Filters.Add "Bilder", "*.jpg"
.FilterIndex = .Filters.Count
If .Show = -1 Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(Rows.Count, 1).End(xlUp).Offset(, 6), _
Address:=.SelectedItems(1)
End If
End With
End Sub


    Private Sub UserForm_Initialize()
'Datumswert aktuell bei Formularaufruf eintragen
With Me
.txtDatum.Value = Date
End With
End Sub


    • Was meinst du, wo sollte deine Code Zeile integriert werden, dass alles in einem Rutsch dann in der Zeile geschrieben wird? Wäre das zwischen-auslesen des URL-Strings woanders hin und dann einlesen in ein neues Textfeld des Folrmular ein gängiger Weg?
    Gruss, Juergen

    Anzeige
    AW: Wie lokale Bild-Quelle in Zelle schreiben?
    14.04.2016 13:19:24
    Rudi
    Hallo, 
    Option Explicit
Dim strBild As String
Private Sub cmdEingabe_Click()
'fügt die Daten in das Tabellenblatt ein und schliesst die Erfassung der Bauteile
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.txtDatum.Value
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtObjektstrasse.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtObjektstandort.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtEinbaulage.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtAnzahl.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtBauteil.Value
If strBild  "" Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(intErsteLeereZeile, 7), Address:=strBild
End If
Unload frmErfassung
End Sub
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "c:\tmp\"  'anpassen
.Filters.Add "Bilder", "*.jpg"
.FilterIndex = .Filters.Count
If .Show = -1 Then
strBild = .SelectedItems(1)
End If
End With
End Sub

    Gruß
    Rudi

    Anzeige
    AW: Wie lokale Bild-Quelle in Zelle schreiben?
    14.04.2016 13:40:43
    Juergen
    Hallo Rudi,
    danke für deine Hilfe.
    leider wills nicht klappen. Jetzt bleibt die 7. Zelle leider ganz leer, obwohl zuvor ein Bild gewählt wurde.
    Mein Code sieht jetzt so aus:
    Habe ich was falsch gemacht?
  • 
Private Sub cmdAbbruch_Click()
'schliesst die Erfassung der Bauteile
Unload frmErfassung
End Sub

    Private Sub cmdBild_einfuegen_Click()
'Bild suchen und einfügen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "c:\tmp\"
.Filters.Add "Bilder", "*.jpg"
.FilterIndex = .Filters.Count
If .Show = -1 Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(Rows.Count, 1).End(xlUp).Offset(, 6), _
Address:=.SelectedItems(1)
End If
End With
End Sub

    Option Explicit
    Dim strBild As String 
    Private Sub cmdEingabe_Click()
'fügt die Daten in das Tabellenblatt ein und schliesst die Erfassung der Bauteile
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.txtDatum.Value
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtObjektstrasse.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtObjektstandort.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtEinbaulage.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtAnzahl.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtBauteil.Value
If strBild  "" Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(intErsteLeereZeile, 7), Address:=strBild
End If
Unload frmErfassung
End Sub

    Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "c:\tmp\"  'anpassen
.Filters.Add "Bilder", "*.jpg"
.FilterIndex = .Filters.Count
If .Show = -1 Then
strBild = .SelectedItems(1)
End If
End With
End Sub

    Private Sub UserForm_Initialize()
'Datumswert aktuell bei Formularaufruf eintragen
With Me
.txtDatum.Value = Date
End With
End Sub


    • Gruss, Juergen

    Anzeige
    AW: Wie lokale Bild-Quelle in Zelle schreiben?
    14.04.2016 14:23:21
    Rudi
    Hallo,
    Habe ich was falsch gemacht?
    Ja.
    nimm für deine
    cmdBild_einfuegen_Click
    den Code aus meiner
    CommandButton1_Click
    Da wird lediglich der Dateiname (strBild) abgefragt sonst nix. Wenn der leer ist, wird in 
                  If strBild  "" Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(intErsteLeereZeile, 7), Address:=strBild
End If

    nichts eingetragen.
    Gruß
    Rudi

    AW: Wie lokale Bild-Quelle in Zelle schreiben?
    14.04.2016 15:10:37
    Juergen
    Hallo Rudi!
    herzlichen Dank für deine Mühe, jetzt klappts astrein!!
    Gruss, Juergen

    338 Forumthreads zu ähnlichen Themen

    7 a in eine Zelle schreiben
    Kai

    Hallo zusammen,
    wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
    Danke
    07.08.2008 16:45:31
    Thread-ID: 1000024
    6 Beiträge
    Anzeige
    Userform Textboxinhalte in Zellen schreiben
    Gerd

    Guten Tag zusammen!
    Bitte helft mir bei folgendem Problem:
    In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
    Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
    11.08.2008 14:33:59
    Thread-ID: 1000866
    3 Beiträge
    Userform Textboxinhalte in Zellen schreiben
    Gerd

    Guten Tag zusammen!
    Bitte helft mir bei folgendem Problem:
    In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
    Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
    11.08.2008 14:34:08
    Thread-ID: 1000867
    5 Beiträge
    Anzeige
    VBA - Zelle kopieren bis Wert einer Zelle null ist
    Schulze

    Halli Hallo,
    ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
    19.08.2008 08:39:35
    Thread-ID: 1002782
    17 Beiträge
    x ersetzen durch wert aus bestimmter zelle
    Ingolf

    hallo,
    ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
    22.08.2008 09:08:22
    Thread-ID: 1003727
    5 Beiträge
    Mit VBA In Zelle Excelformel schreiben
    Gho-Reg

    Hi Leute
    Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
    CODE:
    rowbeforeinteger = 2
    Dim text As String
    text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
    25.08.2008 11:08:33
    Thread-ID: 1004403
    6 Beiträge
    Makrostart wenn in Zelle was geschrieben wird
    Bernd

    Hallo,
    wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
    Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
    Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
    31.08.2008 11:09:00
    Thread-ID: 1006152
    2 Beiträge
    Zellen ausblenden mit Wert 0 in Zelle
    Ulrich

    Hallo zusammen,
    wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
    Viele Grüße,
    Ulrich
    01.09.2008 11:08:49
    Thread-ID: 1006360
    6 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    CommandButton UserForm

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    5
    3
    2
    4
    3
    16
    4
    5
    1
    5
    3
    2
    1
    4
    4
    6
    5
    30
    3
    4
    11
    8
    6
    10
    4