variabler Datenbereich
05.01.2004 11:08:40
Andre
ich nutze folgenden Code, um Daten zu übergeben, leider hänge ich jetzt etwas.
Ich kann einzelne Zellen der gefundenen Zeile ansprechen (Cells(SuBe.Row, 5).Value), aber keine Bereiche ((Cells(SuBe.Row, 5), Cells(SuBe.Row, 5).Value)????)!
Also, die entsprechende Zeile aus dem Code sollte dann wohl irgendwie so lauten:
.Range("A1:F1").Value = Sheets("Posten").Range(Cells(SuBe.Row, 5), Cells(SuBe.Row, 11)).Value
Weiß jemand Rat?
Public
Sub PostenAlt()
Dim SuBe As Range, c As Range
Dim a As String
Dim laR As Long
Application.ScreenUpdating = False
a = Sheets("Kontrolle").Range("A2").Value
With Sheets("Posten")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range("A1:A" & laR). _
Find(a, lookat:=xlWhole)
If Not SuBe Is Nothing Then
With Rechnungsmaske.Spreadsheet1.ActiveSheet
.Range("A1:F1").Value = Sheets("Posten").Range("C2?:H2?").Value
.Range("A2:F2").Value = Sheets("Posten").Range("I2?:N2?").Value
'.Range("C1").Value = Sheets("Posten").Cells(SuBe.Row, 5).Value
'.Range("D1").Value = Sheets("Posten").Cells(SuBe.Row, 6).Value
'.Range("E1").Value = Sheets("Posten").Cells(SuBe.Row, 7).Value
'.Range("F1").Value = Sheets("Posten").Cells(SuBe.Row, 8).Value
End With
End If
End With
End Sub
Gruß Andre