Frage stellen

wie kann ich Excel sagen das er einen unterstrich + eine zahl auslassen soll beim durchsuchen?

1.3k Aufrufe
Gefragt in Tabellenkalkulation von
Hier ( https://supportnet.de/fresh/2005/11/id1193541.asp) wird sehr schön erklärt wie man in Excel Bilder einfügen kann. Das funktioniert auch super. Ist es Möglich einen unterstrich + zahl (1011265_2) (_2) auszulassen beim durchsuchen?

Spich das er nur den bereich vor dem Unterstrich durchsuchen soll.

3 Antworten

0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo,

wenn die Stellen vor den Unterstrich konstant sind (im Beispiel 7)
dann reicht

=--LINKS(A1;7)

bei flexiblen Stellen

=--LINKS(A1;FINDEN("_";A1)-1)

Der zu prüfende Wert steht in beiden Beispielen in A1

Gruß
Rainer
0 Punkte
Beantwortet von
hmm glaube wir haben uns falsch verstanden.

Ich möchte in diesem Code, die Suchfunktion verfeinern. In meiner Tabelle stehen viele Nummern mit Unterstrich und noch einer zahl dahinter. Durchsucht sollen nur die zahlen vor dem Unterstrich. Und wenn es passt das Bild einfügen. Aber wie ich das "=--LINKS(A1;FINDEN("_";A1)-1)" in den Code einfügen soll. Leider weiß ich es nicht.

Option Explicit

Sub Bilder_einfügen()
Sub AlleBildgroessenAnpassen()
Dim Pfad As String, Wiederholungen As Long
Dim objPic As Object

On Error Resume Next
Pfad = "C:\Users\Büro\Desktop\Bildernummern ändern\Links_&_Rechts_vollständig\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Next

For Each objPic In ActiveSheet.Pictures
'Alle Grafiken formatieren :
With objPic.ShapeRange
.LockAspectRatio = False
'Breite und Höhe der Grafik bitte in Klammer hier anpassen :
.Height = Application.CentimetersToPoints(6.77)
.Width = Application.CentimetersToPoints(9.03)
End With
Next
End Sub
0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo,

hmm glaube wir haben uns falsch verstanden.


Ich glaube eher, deine Frage war nicht gut genug formuliert ;-).
Mit Rainers Antwort könntest du per Hilfsspalte die Bildernamen ohne Unterstriche bekommen.

Per VBA könntest du das z.B. so lösen (unter der Bedingung, dass nur ein Unterstrich im Bildnamen vorhanden ist):

Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
Dim objPic As Object
Dim varBild As Variant

On Error Resume Next
Pfad = "C:\Users\Büro\Desktop\Bildernummern ändern\Links_&_Rechts_vollständig\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
varBild = Split(Cells(Wiederholungen, 1), "_")
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & varBild(0) & ".jpg").Select
Next

For Each objPic In ActiveSheet.Pictures
'Alle Grafiken formatieren :
With objPic.ShapeRange
.LockAspectRatio = False
'Breite und Höhe der Grafik bitte in Klammer hier anpassen :
.Height = Application.CentimetersToPoints(6.77)
.Width = Application.CentimetersToPoints(9.03)
End With
Next
End Sub


Gruß

M.O.
...