Ich brauche ein kleines Einfach Programm und habe leider keine Erfahrung mit VBA. Folgendes soll das Programm tun:
Wenn in eine bestimmten Spalte ein bestimmter Text steht, soll in der aktuellen Zelle eine bestimmte Formel eingefügt werden. Dieses Makro soll in einer ganzen spalte laufen.
So hatte ich bereits angefangen:
Sub UnterscheidungTyp()
If Sheets("7").Cells(3, ActiveCell.Row) = Dose Then
Row As Double
Row = ActiveCell.Row
Dim oBlatt As Worksheet
Set oBlatt = ThisWorkbook.Worksheets("Tabelle1") 'Typ auswählen'
With oBlatt.Range(ActiveCell.Column, ActiveCell.Row).FormulaLocal = "=Produkt(G&Row&,H& _
Row&)"
End With
End If
End Sub
So hatte ich bis jetzt angefangen aber da sieht man vermutlich, dass ich keine Ahnung habe.LG und Danke