|
VBA - Zellen mit x kopieren |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Samstag, 10. Mai 2008 um 06:12 Uhr |
|
Dieser kleine VBA Code soll zeigen, wie man Daten, welche in Spalte E mit einem x versehen wurden, vom Tabellenblatt 1 ins Tabellenblatt 2 kopieren kann. Tabelle1
| | B | C | D | E | | 1 | Überschrift | | 2 | 1 | z | a | x | | 3 | 2 | y | b | | | 4 | 3 | x | c | | | 5 | 4 | z | a | | | 6 | 5 | y | b | | | 7 | 6 | x | c | x | | 8 | 7 | z | a | | | 9 | 8 | y | b | x | | 10 | 9 | x | c | | | 11 | 10 | z | a | | | 12 | 11 | y | b | x | | 13 | 12 | x | c | | Tabelle2
| | B | C | D | E | | 1 | Überschrift | | 2 | 1 | z | a | | | 3 | 6 | x | c | | | 4 | 8 | y | b | | | 5 | 11 | y | b | | | 6 | | | | |
Der Code damit Zeilen, welche in Tabelle 1 mit einem x versehen wurden, nach Tabelle 2 zu kopieren lautet:
Option Explicit
Sub uebertrag()
Dim i As Variant
Dim loletzte As Long
Dim loletzte2 As Long
loletzte = Worksheets("Tabelle1").Cells(Rows.Count, 5).End(xlUp).Row
Worksheets("Tabelle2").Range("B2:E" & loletzte).ClearContents
loletzte2 = Worksheets("Tabelle2").Cells(Rows.Count, 4).End(xlUp).Row + 1
Application.ScreenUpdating = False
For i = 2 To loletzte
If Worksheets("Tabelle1").Cells(i, 5).Value = "x" Then
Worksheets("Tabelle2").Range("B" & loletzte2 & ":D" & loletzte2) = _
Worksheets("Tabelle1").Range("B" & i & ":D" & i).Value
loletzte2 = loletzte2 + 1
End If
Next
Application.ScreenUpdating = True
End Sub
|
VBA Makro Beispiele 