Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:08:47
Text in Spalten zählen
16.04.2024 10:55:21
Welche Angaben sind Zeile- und Spaltenhöhe
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
16.04.2024 10:29:44
Mittelwert für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige