VBA Formel ändern
10.03.2022 20:02:28
Albert
ich habe zwei Probleme welche ich nicht hinbekomme.
Frage 1:
kann man die Formel siehe unten so ändern, das "Cells(ActiveCell.Row, 60).Select"
an Stelle ".Row, 60" auf den Spaltenbereich (Name lt. Namensmanager ist Änderungsdatum mit Bezug =Kunden!$BJ$5:$BJ$10004) zugreift und
dann das Datum einfügt und dann wieder zur Ausgagszelle zurückspringt?
With ActiveCell
Cells(ActiveCell.Row, 60).Select
ActiveCell.Value = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
With ActiveCell
Cells(ActiveCell.Row, -60).Select
End With
End With
Das ist ein Makro siehe unten welches Herbert_Grom für mich gemacht hat. Er hat mir eh schon so viel geholfen, deshalb wende ich mich allgemein an das Forum ausser Helmut will mir nochmals helfen.
Auch hier möchte ich keinen absoluten Bezug haben, weil wenn ich später einmal eine Spalte einfügen muss, dann soll das Makro auch noch funktionieren.
Bitte wenn möglich auch hier den Name lt. Namensmanager verwenden
bei "Chr(Range("1:10")" falls es da überhaupt notwendig ist und
bei "CountIf(Range("J1:J10004")"
Der Name lt. Namensmanager ist Land_Fi mit Bezug =Kunden!$J$1:$J$10004 zu verwenden.
Private Sub CommandButton1_Click()
Dim lRowIn&, sCol$
sCol = Chr(Range("1:10").Find(What:="Land (Fi)").Column + 64)
lRowIn = Application.WorksheetFunction.CountIf(Range("J1:J10004"), ">A") + 2
Range(sCol & lRowIn).Select
UF_ListeFilternBuchstabenweise.Show
End Sub
FG
Bert