AW: Vorm Schneiden Prüfen
02.06.2017 08:26:07
AnWo
Guten Morgen,
erstmal Entschuldigung, ich war gestern nicht mehr wirklich in der Lage :-(
ich fange noch mal von vorne an (mit den Bäumen dacht ich wäre es einfacher zu verstehen):
Ich habe hier im Forum schon einen Anfang bekommen und dachte, dass ich den Rest alleine schaffe
Ich bekomme aus einem Vorgelagertem Programm eine Raumstempel und füge den in Spalte D ein:
00HKVA15 Küche
00HKVA15 Anschluß
09HKVA15 Wohnen
00HKVA15BH1 Badezimmer
00HKVA15UNB Abstell
momentan schreibt er die (15) in Spalte F -- zufrieden
entscheidet ob BH1 vorhanden ist und trägt es in Spalte K -- zufrieden
entscheidet ob UNB vorhanden ist und trägt es in Spalte H -- zufrieden
und jetzt wurde ich gerne das er prüft ob die ersten 2 Stellen 00 sind dann soll er rechenen:
=WENN(H2="j";AUFRUNDEN(G2/Projekt!$E$18;0);0)
sonst die ersten beiden Stellen übernehmen.
und im Anschluß bis zum Leerzeichen den String schneiden.
Was ich bisher habe:
Sub AnWo()
Dim z As Range
With Range("D2:D" & Cells(Rows.Count, 4).End(xlUp).Row)
.Offset(0, 2).Formula = "=MID(D2,7,2)*1"
.Offset(0, 2).Value = .Offset(0, 2).Value
.Offset(0, 7).Formula = "=IF(NOT(ISERROR(FIND(""BH1"",D2,2))),1,0)"
.Offset(0, 7).Value = .Offset(0, 7).Value
.Offset(0, 4).Formula = "=IF(NOT(ISERROR(FIND(""UNB"",D2,2))),""N"",""J"")"
.Offset(0, 4).Value = .Offset(0, 4).Value
.Offset(0, 6).Formula = "=IF(NOT(ISERROR(FIND(""00HK"",D2))),1,0"
.Offset(0, 6).Value = .Offset(0, 6).Value
For Each z In .Cells
z = Right(z, Len(z) - InStr(1, z, " "))
Next z
End With
End Sub
Ich hoffe das ist jetzt verständlich und höflich.
Danke
Andreas