|
Hallo,
kann mir jemand bei diesen Problem weiterhelfen? Bei folgendender Programmierung gibt mir vba diese Ausgabe:
Vorher:
|
Analyse:LF_1 |
|
Analyse:LF_2 |
Nachher:
Gewünscht:
Programmtext:
Dim Spalte As Integer
Dim Zeile As Integer
Dim l_zeile As Integer
Dim l_spalte As Integer
Dim n As Integer
Dim str As String
l_zeile = Cells(Rows.Count, 1).End(xlUp).Rows.Row
l_spalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
For Spalte = 1 To l_spalte
For Zeile = 1 To l_zeile
If Cells(Zeile, Spalte) Like "Fx" Then
Cells(Zeile, Spalte) = 1
ElseIf Cells(Zeile, Spalte) Like "Fy" Then
Cells(Zeile, Spalte) = 2
ElseIf Cells(Zeile, Spalte) Like "Fz" Then
Cells(Zeile, Spalte) = 3
ElseIf Cells(Zeile, Spalte) Like "Mx" Then
Cells(Zeile, Spalte) = 4
ElseIf Cells(Zeile, Spalte) Like "My" Then
Cells(Zeile, Spalte) = 5
ElseIf Cells(Zeile, Spalte) Like "Mz" Then
Cells(Zeile, Spalte) = 6
ElseIf Cells(Zeile, Spalte) Like "*montage*" Then
Cells(Zeile, Spalte) = 1
ElseIf Cells(Zeile, Spalte) Like "*LF*" Then
For n = 1 To 50
'str = Val(n)
If Cells(Zeile, Spalte) Like "*n*" Then
'n = Val(str)
Cells(Zeile, Spalte) = n + 1
End If
Next n
End If
Next Zeile
Next Spalte
Vielen Dank!!!
|