Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
228to232
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl Zeilen in Range-Bereich weitergeben!

Anzahl Zeilen in Range-Bereich weitergeben!
10.03.2003 10:41:27
Markus
Hallo Zusammen

Ich habe eine Liste die sich ständig verändert. In meinem Markor überprüfe ich immer zuerst die Anzahl Zeilen (Bsp. 45).
Danach möchte ich die "45" in den Rang-Bereich bekommen (Bsp. K2 bis K45).

Den Fehler erhalte ich immer in der Zeile mit "Selection.AutoFi...

Wenn ich mit der MSG-Box den Wert "j" überprüfe erhalte ich die 45!

Besten Dank im Voraus für Euere Hilfe

Gruss Markus

Columns("K:K").Select
Selection.Insert Shift:=xlToRight
Range("K1").Select
ActiveCell.FormulaR1C1 = "Dauer(Std.)"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/3600"
Range("K2").Select
Dim i
i = Cells(Rows.Count, 1).End(xlUp).Row
' MsgBox "Die letzte besetzte Zelle in Spalte A ist" & i
j = "K" & i
' MsgBox "j= " & j
Selection.AutoFill Destination:=Range("K2: & j "), Type:=xlFillDefault
Range("K2: & j ").Select


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Anzahl Zeilen in Range-Bereich weitergeben!
10.03.2003 10:44:46
gordon

Versuch's mal so:

Selection.AutoFill Destination:=Range("K2:K" & j ), Type:=xlFillDefault

Gruß
gordon

Re: Anzahl Zeilen in Range-Bereich weitergeben!
10.03.2003 10:45:10
Forum



stop -schnellschuss - definition von j übersehen
10.03.2003 10:51:04
gordon



Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige