|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.10.2018 18:15:13 |
WolleP |
|
|
|
27.10.2018 22:01:22 |
Mackie |
|
|
|
28.10.2018 11:59:59 |
RPP63 |
|
|
|
28.10.2018 13:13:06 |
Gast43566 |
|
|
|
28.10.2018 13:16:08 |
WolleP |
|
|
|
28.10.2018 12:34:54 |
Gast81073 |
|
|
|
28.10.2018 13:13:58 |
Gast69485 |
|
|
|
28.10.2018 13:17:41 |
Gast4156 |
|
|
 Filtern statt ausblenden |
28.10.2018 18:43:34 |
Gast63844 |
|
|
|
28.10.2018 20:29:46 |
WolleP |
|
|
|
28.10.2018 20:50:24 |
WolleP |
|
|
Von:
Gast63844 |
Datum:
28.10.2018 18:43:34 |
Views:
515 |
Rating:
|
Antwort:
|
Thema:
Filtern statt ausblenden |
|
< und dann mittel "Runterziehen" die in einer Zelle aktualisierte Formel in alle Zellen mit Formel einfügen
Hallo WolleP,
soll bedeuten - ich markiere eine Zelle im sichtbaren, ungefilterten Arbeitsblatt (mit allen Zeilen)
diese eine Zelle - enthält eine neue, geänderte Formel
"Runterziehen" - schlichtweg eine Range.Autofill Methode (überschreibt alle Zeilen)
OK, dann
- selektiere ich diese Zelle mit und alle benötigten Zellen in der Spalte darunter
- egal ob mit Formel oder Konstante drin
- lasse Makro1 die Arbeit machen
Ist das in deinem Sinne?
LG
Sub Makro1()
Dim c As Range, x As Long, ff
With Selection
If .Cells.Count = 1 Or .Columns.Count > 1 Then Exit Sub
If .Cells(1).HasFormula Then
ff = .Cells(1).FormulaR1C1
For x = 2 To .Cells.Count
With .Cells(x)
If .HasFormula Then .FormulaR1C1 = ff
End With
Next x
End If
End With
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.10.2018 18:15:13 |
WolleP |
|
|
|
27.10.2018 22:01:22 |
Mackie |
|
|
|
28.10.2018 11:59:59 |
RPP63 |
|
|
|
28.10.2018 13:13:06 |
Gast43566 |
|
|
|
28.10.2018 13:16:08 |
WolleP |
|
|
|
28.10.2018 12:34:54 |
Gast81073 |
|
|
|
28.10.2018 13:13:58 |
Gast69485 |
|
|
|
28.10.2018 13:17:41 |
Gast4156 |
|
|
Filtern statt ausblenden |
28.10.2018 18:43:34 |
Gast63844 |
|
|
|
28.10.2018 20:29:46 |
WolleP |
|
|
|
28.10.2018 20:50:24 |
WolleP |
|
|