https://www.herber.de/bbs/user/64093.xlsx
A | B | C | D | |
19 | AG-08-25 * Module Server(FMS), and Channel Cover $6.00 | AG-08-25 * | Module Server(FMS), and Channel Cover | $6,00 |
20 | wd-0018-27 Rail Kit for Flexible ModuleServer (FMS), and Channel Cover. $38.00 | wd-0018-27 | Rail Kit for Flexible ModuleServer (FMS), and Channel Cover. | $38,00 |
21 | ER- 18-28 * Rear Extension and Channel Cover. $48.00 | ER- 18-28 * | Rear Extension and Channel Cover. | $48,00 |
22 | EFG-018-2 Vxtension - Includes: for FMS $719.15 | EFG-018-2 | Vxtension - Includes: for FMS | $719,15 |
verwendete Formeln | |
Zelle | Formel |
A19 | =BEREICH.VERSCHIEBEN(B1;ZEILE(B1)+2;)&BEREICH.VERSCHIEBEN(B1;ZEILE(B1)+3;) |
B19 | {=LINKS(A19;MAX(WENN(CODE(TEIL(A19;ZEILE($1:$12);1))<65;ZEILE($1:$12);0)))} |
C19 | =GLÄTTEN(WECHSELN(WECHSELN(A19;B19;"");WECHSELN(TEXT(D19;"[$$-409]#.##0,00");",";".");"")) |
D19 | =WECHSELN(TEIL(A19;SUCHEN("$";A19)+1;99);".";",")*1 |
A20 | =BEREICH.VERSCHIEBEN(B2;ZEILE(B2)+2;)&BEREICH.VERSCHIEBEN(B2;ZEILE(B2)+3;) |
B20 | {=LINKS(A20;MAX(WENN(CODE(TEIL(A20;ZEILE($1:$12);1))<65;ZEILE($1:$12);0)))} |
C20 | =GLÄTTEN(WECHSELN(WECHSELN(A20;B20;"");WECHSELN(TEXT(D20;"[$$-409]#.##0,00");",";".");"")) |
D20 | =WECHSELN(TEIL(A20;SUCHEN("$";A20)+1;99);".";",")*1 |
A21 | =BEREICH.VERSCHIEBEN(B3;ZEILE(B3)+2;)&BEREICH.VERSCHIEBEN(B3;ZEILE(B3)+3;) |
B21 | {=LINKS(A21;MAX(WENN(CODE(TEIL(A21;ZEILE($1:$12);1))<65;ZEILE($1:$12);0)))} |
C21 | =GLÄTTEN(WECHSELN(WECHSELN(A21;B21;"");WECHSELN(TEXT(D21;"[$$-409]#.##0,00");",";".");"")) |
D21 | =WECHSELN(TEIL(A21;SUCHEN("$";A21)+1;99);".";",")*1 |
A22 | =BEREICH.VERSCHIEBEN(B4;ZEILE(B4)+2;)&BEREICH.VERSCHIEBEN(B4;ZEILE(B4)+3;) |
B22 | {=LINKS(A22;MAX(WENN(CODE(TEIL(A22;ZEILE($1:$12);1))<65;ZEILE($1:$12);0)))} |
C22 | =GLÄTTEN(WECHSELN(WECHSELN(A22;B22;"");WECHSELN(TEXT(D22;"[$$-409]#.##0,00");",";".");"")) |
D22 | =WECHSELN(TEIL(A22;SUCHEN("$";A22)+1;99);".";",")*1 |
Zahlenformate | ||
Zelle | Format | Wert |
D19 | [$$-409]#.##0,00 | 6 |
D20 | [$$-409]#.##0,00 | 38 |
D21 | [$$-409]#.##0,00 | 48 |
D22 | [$$-409]#.##0,00 | 719,15 |
Public Sub NeuFormatieren()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim lZeile_Q As Long
Dim lZeile_Z As Long
Dim sTemp As String
Dim iPosit As Integer
Application.ScreenUpdating = False
Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
For lZeile_Q = 4 To WkSh_Q.Cells(Rows.Count, 2).End(xlUp).Row Step 2
sTemp = WkSh_Q.Range("B" & lZeile_Q).Value & WkSh_Q.Range("B" & lZeile_Q + 1).Value
If sTemp "" Then
lZeile_Z = lZeile_Z + 1
iPosit = InStr(sTemp, " ")
If iPosit > 0 Then
WkSh_Z.Range("B" & lZeile_Z).Value = Trim(Left(sTemp, iPosit - 1))
iPosit = iPosit + 1
WkSh_Z.Range("C" & lZeile_Z).Value = Trim(Mid(sTemp, iPosit, _
InStr(sTemp, "$") - 1 - iPosit))
WkSh_Z.Range("D" & lZeile_Z).Value = Trim(Mid(sTemp, InStr(sTemp, "$")))
End If
End If
Next lZeile_Q
Application.ScreenUpdating = True
End Sub