Codeanpassung

Forumthread: Codeanpassung

Codeanpassung

02.10.2006 14:01:52

Chris

Hallo Zusammen
Kann mir jemand von Euch sagen ob es eine Möglichkeit gibt in diesem Code den Range ("A1:A23") variabel zu setzen damit die Ersetzung bis an den Schluss der abgefüllten Spalte B geht und nicht fix auf 23 Zeilen gesetzt ist.
Vielen Dank für Eure Hilfe und Gruess Chris


Sub Stern()
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "=REPLACE(RC[1],1,0,""*"")&REPLACE(RC[1],1,6,""*"")"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A23")
Range("A1:A23").Select
End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Codeanpassung

02.10.2006 15:32:51

eres
Range(cells(1, 1), cells(1, 23))

02.10.2006 15:34:34

frigo
AW: Range(cells(1, 1), cells(1, 23))

02.10.2006 15:40:01

Chris
AW: Codeanpassung

02.10.2006 15:36:15

Andreas

AW: Codeanpassung

02.10.2006 15:32:51

eres

Hi Chris,
ungetesteter Schnellschuss:


Sub Stern()
Columns("A:A").Insert Shift:=xlToRight
With Cells(1, 1)
.FormulaR1C1 = "=REPLACE(RC[1],1,0,""*"")&REPLACE(RC[1],1,6,""*"")"
.Copy
End With
Range(Cells(2, 1), Cells(Range("A65535").End(xlUp).Row, 1)).PasteSpecial xlFormulas
Application.CutCopyMode = False
End Sub

Gruss
erwin

Range(cells(1, 1), cells(1, 23))

02.10.2006 15:34:34

frigo

Hi Chris,
Range(cells(erstezeile, erstespalte), cells(letztezeile, letztespalte))
also im Falle Range("A1:A23") wäre das dann:
Range(cells(1, 1), cells(1, 23))
Gruß frigo

AW: Range(cells(1, 1), cells(1, 23))

02.10.2006 15:40:01

Chris

Hallo frigo
Vielen Dank für die schnelle Hilfe.
Ich habe in der Excel-Recherche ein paar Einträge gefunden welche ich anpassen konnte und das Problem lösen konnte.
Werde Deine Lösung auch noch ausprobieren.
Ich kann nur sagen vielen vielen Dank für die fleissigen Helfer die uns DAUS hier immer wieder helfen.


Sub Stern()
Dim Lrow As Long
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "=REPLACE(RC[1],1,0,""*"")&REPLACE(RC[1],1,10,""*"")"
Range("A1").Select
Lrow = Cells(Rows.Count, 2).End(xlUp).Row 'für Spalte B
Selection.AutoFill Destination:=Range("A1:A" & Lrow)
End Sub

AW: Codeanpassung

02.10.2006 15:36:15

Andreas

Hi Chris,
Versuch's mal damit:


Sub Stern()
Columns(1).Insert Shift:=xlToRight
For i = 1 To UsedRange.Rows.Count
Cells(i, 1) = "=REPLACE(RC[1],1,0,""*"")&REPLACE(RC[1],1,6,""*"")"
Next i
End Sub

Grüße
Andreas

Beliebteste Forumthreads (12 Monate)

Forumthread: Codeanpassung

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread