Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren mit Makro

Kopieren mit Makro
rolf
hallo
ich möchte eine telefonliste ordnen ca.2300 kontakte (nummern).
frage ?
wenn af1 leer ist soll der inhalt aus ag1 hinein kopirt werden,falls vorhanden.
wenn af1 besetzt ist bleibt alles beim alten.
in spalte d (Name) kann man das ende der liste finden.
mfg rolf

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

Betreff
Benutzer
Anzeige
AW: Kopieren mit Makro
29.09.2009 20:16:53
robert
hi,
schau mal ob es passt
gruß
robert
Sub tt()
Dim lz%, i%
lz = Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To lz
If Cells(i, 32) = "" Then
Cells(i, 32) = Cells(i, 33)
End If
Next i
End Sub

AW: Kopieren mit Makro
29.09.2009 20:30:43
rolf
hallo robert
das kopieren hat funktioniert.
aber sorry.
ich hätte besser auschneiden gesagt,sonst habe ich sie alle doppelt.
vielleich kannst du mir noch einmal helfen
mfg rolf
AW: Kopieren mit Makro
29.09.2009 20:39:00
robert
hi,
meinst du so ?
gruß
robert
Sub tt()
Dim lz%, i%
lz = Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To lz
If Cells(i, 32) = "" Then
Cells(i, 32) = Cells(i, 33)
Cells(i, 33).ClearContents
End If
Next i
End Sub

Anzeige
AW: Kopieren mit Makro
29.09.2009 20:46:06
rolf
hallo robert
perfekt ! das habe ich gesucht.
danke mfg rolf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige