Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wenn a:a nicht leer dann "|" sonst nichts

wenn a:a nicht leer dann "|" sonst nichts
17.07.2005 00:30:40
mehmet
guten tag forum
habe folgenden makro aufgezeichnet

Private Sub cc_ZeichenSpalteEinfügen()
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "|"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B19"), Type:=xlFillDefault
Range("B1:B19").Select
Columns("B:B").EntireColumn.AutoFit
Columns("B:B").Select
Selection.Copy
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub

kann diesen makro so ändern,
so das der eintrag "|" (runter ziehen) bis in spalte a
was eingetragen ist
dank und gruss
mehmet

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

Betreff
Datum
Anwender
Anzeige
AW: wenn a:a nicht leer dann "|" sonst nichts
17.07.2005 00:55:51
Kay
Hallo mehmet,
meinst du in etwa so:

Sub test()
Dim varzeile As Variant
For varzeile = 1 To Range("A65536").End(xlUp).Row
If Cells(varzeile, 1) <> "" Then
Cells(varzeile, 2) = "I"
Else
Cells(varzeile, 2) = ""
End If
Next varzeile
End Sub

MfG
Kay
AW: wenn a:a nicht leer dann "|" sonst nichts
17.07.2005 01:14:48
mehmet
dank dir kay
genau das war es
gruss
mehmet
AW: wenn a:a nicht leer dann "|" sonst nichts
17.07.2005 01:19:41
Kay
Hallo mehmet,
du hattest noch Spaltenbreite anpassen drin, dann musst du unter
dieser Zeile:
Cells(varzeile, 2) = "I"
im Quelltext dies einfügen:
Cells(varzeile, 2).EntireColumn.AutoFit
dann wird die Spaltenbreite automatisch angepasst.
Danke für die Rückmeldung
Kay
Anzeige

442 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige