nur Zellen und Spalten mit Inhalt kopieren
04.12.2003 18:48:59
Christian
habe letztens schon ein Problem behoben .... Rainer half mir dabei
Private Sub Kopieren()
Dim c As Range
Dim i As Long
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Dim V(1 To 36) As String
Dim R(1 To 36) As String
i = 1
For Each c In wks1.Range("G5:G40")
If c <> "" Then
R(i) = c.Offset(0, -5) ' Spalte B
V(i) = c ' Spalte G
i = i + 1
End If
Next c
For i = 1 To 36
wks2.Cells(i + 4, 4) = R(i)
wks2.Cells(i + 4, 5) = V(i)
Next i
End Sub
Das Problem, das ich habe ist nun jedoch, wenn ich auch gleichzeitig die Spalte H prüfen und kopieren möchte, sollen diese Werte auch in Tabellenblatt zwei geschrieben werden.
Kurz gesagt: Wie kann man nur die belegten Zellen einer Matrix kopieren und gleichzeitig die Zeilen- und Spaltennamen zuweisen und alles in ein neues Tabellenblatt forlaufend einfügen.
-------1------2------3------4
--1--- ----- x ----- ------
--2--- ----- ----- ------ (soll entfallen)
--3--- ----- -----x------
--4--- ----- ----- ------x
Der Rest soll mit Zeilen- und Spaltenüberschriften in gleicher Matrixform in eine beliebige Zelle (nicht A1, z.B.: D5) kopiert werden.
Ich verzweifel hier noch ....... maaaaan ..... Danke für Eure Hilfe.
Gruß Christian
Anzeige