Herbers Excel-Forum - das Archiv
Daten in Leerzeilen kopieren
- Daten in Leerzeilen kopieren von Florian vom 20.11.2003 16:55:08
- AW: Daten in Leerzeilen kopieren - von OliveR am 20.11.2003 17:27:26
- AW: Daten in Leerzeilen kopieren - von Florian am 21.11.2003 11:36:32
- AW: Daten in Leerzeilen kopieren - von Florian am 21.11.2003 11:38:56
- AW: Daten in Leerzeilen kopieren - von Florian am 21.11.2003 11:36:32
- AW: Daten in Leerzeilen kopieren - von Susanne E. am 20.11.2003 17:36:49
- AW: Daten in Leerzeilen kopieren - von Florian am 21.11.2003 11:43:48
- AW: Daten in Leerzeilen kopieren - von Florian am 21.11.2003 11:43:48
- AW: Daten in Leerzeilen kopieren - von OliveR am 20.11.2003 17:27:26
 |
Betrifft: Daten in Leerzeilen kopieren
von: Florian
Geschrieben am: 20.11.2003 16:55:08
Hi Zusammen!
Habe folgendes Problem: Ich will mittels Makro die Daten der Spalte A in die freien Felder der Saplte H kopieren, im Sinne von A1 nach erste freie Zelle in Spalte H, A2 nach zweite freie Zelle in Spalte H usw...
Mit einem Loop oder einer Schleife oder so was?
Wäre Euch sehr dankbar!!!
Schönen Gruß,
Florian
 |
Betrifft: AW: Daten in Leerzeilen kopieren
von: OliveR
Geschrieben am: 20.11.2003 17:27:26
Hallo Florian,
here we go. In Sheet-Code einfügen.
Gruß
OliveR
Sub kopieren()
Dim i%, j%, lR%
lR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lR Step 1
If Cells(i, 1) <> Empty Then
Range("H:H").Find(What:="", After:=Cells(1, 8), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchDirection:=xlNext, MatchCase:=False) = Cells(i, 1)
End If
Next i
End Sub
|
Betrifft: AW: Daten in Leerzeilen kopieren
von: Florian
Geschrieben am: 21.11.2003 11:36:32
Hi Oliver!
Perfekt, dankeschön!
Schönes Wochenende,
Florian
|
Betrifft: AW: Daten in Leerzeilen kopieren
von: Florian
Geschrieben am: 21.11.2003 11:38:56
Hi Oliver!
Perfekt, dankeschön!
Schönes Wochenende,
Florian
|
Betrifft: AW: Daten in Leerzeilen kopieren
von: Susanne E.
Geschrieben am: 20.11.2003 17:36:49
Hi Florian,
Es geht mit der Range Property .Specialcells(xlCellTypeBlanks).
Du Loopst damit durch alle leeren Zellen der Spalte H, und setzt die zu kopierende Zelle in Spalte A nach jedem Eintrag eins weiter runter.
Code (nur mal als Skizze):
----------------------------
Dim DataCell as Range
Dim CCell as Range
With Sheets(MySheet)
Set DataCell = .Range("A1")
.Range(H1:H50).Select
For Each CCell in Selection.Specialcells(xlCellTypeBlanks)
CCell = Datacell
DataCell = DataCell.Offset(1,0)
Next
End With
Alles klar?
Susanne
|
Betrifft: AW: Daten in Leerzeilen kopieren
von: Florian
Geschrieben am: 21.11.2003 11:43:48
Hi Susanne!
Cool, Dankeschön! Funktioniert genauso gut wie der Code von Oliver, und ich kann Deinen Gedankengang (halbwegs) nachvollziehen ;-), wieder was gelernt!
Schönes Wochenende,
Florian
| |