so ich habe versucht onurs Code bei mir anzupassen und am ende hat es folgendermaßen funktioniert wenn auch nur beschränkt
Option Explicit
Sub Makro1()
Dim Z As Variant
Dim a$
Dim le
Dim pos
Dim b As Integer
Dim z2 As Integer
Tabelle1.Select
For Z = 2 To 1000: 'Start ab zeile 2 - Bis max 1000 Zeilen
a$ = Cells(Z, 1)
If a$ <> "" Then
a$ = Tabelle1.Cells(Z, 1): le = Len(a$)
pos = InStr(a$, "foci")
If pos > 0 Then
b = 9
If b > (le - pos + 1) Then b = le - pos + 1
'Folgende IF-Anweisung löschen (inkl. End If) löschen, wenn auch z.B. excel.pn akzeptiert werden soll (statt .png)
If b = 9 Then
Tabelle2.Select
z2 = 1
While Tabelle2.Cells(z2, 2) <> ""
z2 = z2 + 1
Wend
Tabelle2.Cells(z2, 2) = Mid(a$, pos, b)
Tabelle1.Select
End If
End If
End If
Next Z
End Sub
achja vielleicht sollte ich erwähnen das ich tatsächlich nur minimale kentnisse in programmieren habe :)
wie würdest du das genau verändern? also könntest du vielleicht direkt den code nochmal einfügen? da mir die fachbegriffe nicht viel sagen :D
|