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

makro verbessern

makro verbessern
07.02.2006 15:03:37
mehmet
hallo forum,
mittels makroaufzeichnung habe ich das folgende bekommen:

Private Sub strich_semi()
Range("C1").Select
ActiveCell.FormulaR1C1 = "''"
Range("D1").Select
ActiveCell.FormulaR1C1 = ";"
Range("C1:D1").Select
Selection.AutoFill Destination:=Range("C1:D25"), Type:=xlFillDefault
Range("C1:D24").Select
Range("A1").Select
End Sub

das problem ist, das diese strings immer c1:d24 gehen
die sollen aber immer solange kopiert werden solange auch
in spalte a zeichen vorhanden sind (abfrage bis a ende)
dank und gruss
mehmet

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro verbessern
07.02.2006 16:07:27
Peter
Servus,
z.B. so.
Sub t()
Dim lzeile As Long
With Sheets("Tabelle1") 'Anpassen
lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("C1:C" & lzeile).Formula = "''"
.Range("D1:D" & lzeile).Formula = ";"
End With
End Sub

MfG Peter
super peter, dank dir. o.T.
07.02.2006 16:19:48
mehmet
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige