Formeln in das VBA Makro einbinden?
22.07.2003 09:21:46
Selma
ich brauche Hilfe bei Ergänzung meines Makros:
Sub SpalteH_to_SpalteB()
'alle Zelleninhalte aus Spalte H ab Zeile 2 werden in Spalte B kopieren (als Werte)
Dim letzte As Long
If [H65536] = "" Then
letzte = [H65536].End(xlUp).Row
Else
letzte = 65536
End If
Range("K2:K" & letzte).Copy
Range("B2").PasteSpecial Paste:=xlValues ' Werte
'Schriftfarbe Anfang
With Selection.Font
.Name = "Arial"
.Size = 8
.ColorIndex = 10
End With
'Schriftfarbe Ende
Application.CutCopyMode = False
End Sub
Wenn das Makro ausgeführt wird, möchte ich noch diese Formel in das Makro einbinden:
Bereich A2:letzte Zelle = eine 2 soll eingetragen werden
Bereich C2:letzte Zelle = das Wort Produkt soll eingetragen werden
Bereich D2:letzte Zelle = ein 00 soll eingetragen werden
Bereich E2:letzte Zelle = diese Formel z.B. für Zeile 145 =WENN(ODER(ISTLEER($C145);ISTLEER($D145);ISTLEER($I145));"";WENN($D145<=9;VERKETTEN($C145;" ";"-";" ";"0";$D145;" ";"-";" ";$I145);VERKETTEN($C145;" ";"-";" ";$D145;" ";"-";" ";$I145)))
Bereich G2:letzte Zelle = diese Formel z.B. für Zeile 145 =J145&E145
Bereich H2:letzte = diese Formel z.B. für Zeile 145 =WENN(ODER(ISTLEER($B145);ISTLEER($F145);ISTLEER($J145));"";VERKETTEN("rename";" ";"""";$F145;"""";" ";"""";$E145;""""))
Bereich I2:letzte Zelle = diese Formel z.B. für Zeile 145 =WENN(B145="";"";WENN(ISTFEHLER(FINDEN("-";B145;1));B1063;TEIL($B145;SUCHEN("##";WECHSELN($B145;"-";"##";LÄNGE($B145)-LÄNGE(WECHSELN($B145;"-";""))))+$A145;200)))
Bereich J2:letzte Zelle = diese Formel z.B. für Zeile 145 =WENN($F145="";"";LINKS($F145;FINDEN("##";WECHSELN($F145;"\";"##";LÄNGE($F145)-LÄNGE(WECHSELN($F145;"\";""))))))
Bereich K2:letzte Zelle = diese Formel z.B. für Zeile 145 =WENN($F145="";"";TEIL($F145;SUCHEN("##";WECHSELN($F145;"\";"##";LÄNGE($F145)-LÄNGE(WECHSELN($F145;"\";""))))+1;200))
Danke im voraus...
Liebe Grüße aus Düsseldorf
Selma