Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1392to1396
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
Inhaltsverzeichnis

kopieren nur werte keine formate

kopieren nur werte keine formate
02.12.2014 23:11:42
marc
hallo arbeite mit diesem makro
will aber nur die werte kopieren nicht die Formatierungen
Dim i
With Sheets("bum")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("a" & i).Copy Sheets("bam").Range("a5")
.Range("b" & i).Copy Sheets("bam").Range("i5")
Next i
End With
End Sub
danke im vorraus

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

Betreff
Datum
Anwender
Anzeige
AW: kopieren nur werte keine formate
03.12.2014 00:42:05
Uwe
Hi,
Sub aaa()
Dim i As Long
With Sheets("bum")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Sheets("bam").Range("a5").Value = .Range("a" & i).Value
Sheets("bam").Range("i5").Value = .Range("b" & i).Value
Next i
End With
End Sub
Gruß Uwe

AW: kopieren nur werte keine formate
03.12.2014 07:27:42
hary
Moin
Ohne Schleife.
Sub BimBam()
Dim letzte As Long
With Sheets("bum")
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A2:A" & letzte).Value = Sheets("bam").Range("A5").Value
.Range("B2:B" & letzte).Value = Sheets("bam").Range("I5").Value
End With
End Sub

gruss hary

Anzeige
AW: oder..
03.12.2014 07:48:50
hary
Moin nochmal
..meinste so?
Sub BimBam()
Dim letzte As Long
With Sheets("bum")
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Sheets("bam").Range("A5").Resize(letzte - 1, 1).Value = .Range("A2:A" & letzte).Value
Sheets("bam").Range("I5").Resize(letzte - 1, 1).Value = .Range("B2:B" & letzte).Value
End With
End Sub

gruss hary

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige