Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code ohne .select

Code ohne .select
05.04.2016 17:00:12
Kathi
Hallo,
wie kann ich folgenden Code ohne .select schreiben, so dass er auch funktioniert? :-) 

Range("D2").Select
ActiveCell.FormulaR1C1 = "Haus"
Range("E2").Select
ActiveCell.FormulaR1C1 = "Straße"
Range("D2:E2").Select
Range(Selection, Selection.End(xlDown)).FillDown
Vielen Dank im Voraus!
Liebe Grüße

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code ohne .select
05.04.2016 17:01:56
Kathi
Oje, ich glaube, man versteht nicht, was ich meine. :-/
Ich habe in der Zelle D2 und E2 jeweils 1 Wort stehen und dieses soll bis in die letzte verwendete Zeile der gleichen Spalte runterkopiert werden.

AW: Code ohne .select
05.04.2016 17:05:19
Daniel
Hi
dazu müssen aber die Zellen in den Spalten D und E schon beschrieben sein.
Range(Cells(2, 4), Cells(2, 4).End(xldown)).Value = "Haus"
Range(Cells(2, 5), Cells(2, 5).End(xldown)).Value = "Straße"
Gruß Daniel

AW: Code ohne .select
05.04.2016 17:19:23
Kathi
Danke für die rasche Rückmeldung!

AW: Code ohne .select
05.04.2016 17:06:45
Fennek
Hallo,
Ungeprüft:
Cells(2, "D") = "Haus"
Cells(2, "E") = "Straße"
Range("d2:e2").filldown
Mfg

Anzeige
AW: Code ohne .select
05.04.2016 17:19:35
Kathi
Danke für die rasche Rückmeldung!

AW: Code ohne .select
05.04.2016 17:09:05
Nepumuk
Hallo,
würde ich so machen:
Public Sub Test()
    Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp)).Value = "Haus"
    Range(Cells(2, 5), Cells(Rows.Count, 5).End(xlUp)).Value = "Straße"
End Sub

Gruß
Nepumuk

Anzeige
AW: Code ohne .select
05.04.2016 17:19:43
Kathi
Danke für die rasche Rückmeldung!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige