ich bin neu hier und möchte mich kurz Vorstellen.
Mein Name ist Peter und ich möchte meine Kentnisse in VBA erweitern, ich arbeite mit Office 2016 und Win10.
Ich lese schon seit geraumer zeit im Forum und habe auch schon nutzen daraus gezogen und erhoffe mir für meinen weiteren Weg durch die VBA Welt unterstützung im Forum. Bekanntlicher weise ist ja aller Anfang schwer aber ich freue mich schon jetzt auf einen Interresanten Austausch hier.
Nun zu meinem 1. Problem:
Ich habe eine Intelligente Tabelle mit Formeln die durch den folgenden Code die Formeln durch Werte ersetzt.
Private Sub Worksheet_Calculate()
Dim objCell As Range
For Each objCell In Range("G30:Q41")
If objCell.HasFormula Then
If objCell.Text "" Then
objCell.Value = objCell.Text 'oder = objCell.Value
End If
End If
Next
End Sub
dieser Code aus dem Forum funktioniert Super aber meine hinterlegten Formeln sind dann Weg. Gibt es eine Möglichkeit den Code abzuändern das er mir die letzte Zeile mit den Formeln erhält und nur die Werte davor ändert? Ich habe schon versucht mit Rows -1 eine Lösung zu finden aber das klappt leider nicht.
Dann hab ich noch eine Frage, kann man die Range auch Dynamisch machen so dass sie mit der Intelligenten Tabelle wächst?
Ich hoffe es kann mir hir jemand weiter helfen!
Danke schon mal im Vorraus!
Gruß Peter