Das Archiv des Excel-Forums
Range Syntax
Betrifft: Range Syntax
von: Rafael
Geschrieben am: 13.10.2003 14:39:43
Hallo Boardgemeinde,
der Code steht in Tabelle3. Eine Anweisung soll versch. Werte eines nicht zusammenhängenden Zellbereichs von Tabelle2 in einen zusammenhängenden Zellbereich von Tabelle1 schreiben. Wenn der Code läuft ist somit Tabelle3 aktiv (ich hatte irgendwo gelesen, dass die Syntax in diesem Falle anders aussieht).
If Sheets("Wasserstand").Cells(2, 16) < Sheets("Wasserstand").Cells(2, 5) Then
Sheets("Archiv").[E21:H21] = Sheets("Wetter").Range("C16:D16,G16,K16")
Else
End If
Leider kommt in Tabelle "Archiv" bestenfalls der erste Wert aus Tabelle "Wetter" an auch nach verschiedensten Versuchen der Syntaxänderung.
Vielen Dank im voraus!
Rafael
Betrifft: AW: Range Syntax
von: Dan
Geschrieben am: 13.10.2003 15:07:32
Hallo Rafael,
hier ein beispiel wie man die zusammenhängende Zellbereiche per VBA kopieren kann. Mfg. D.
Option Explicit
Public
Sub RangeCopyExample()
Dim RangeUnion As Range
On Error GoTo ErrH
' das geht, die einzelnen ranges haben die selbe form
Set RangeUnion = Application.Union(Range("a1:a3"), Range("d1:d3"), Range("h1:h3"))
RangeUnion.Copy Range("a5")
' das geht aber nicht
Set RangeUnion = Application.Union(Range("a1:a4"), Range("d1:d5"), Range("h1:h6"))
RangeUnion.Copy Range("a5")
Exit Sub
ErrH:
MsgBox "Fehler : " & Err.Description & " . " & vbCrLf & _
"Nummer : " & Err.Number & " . " & vbCrLf & _
"Beschreibung : " & Err.Description
End Sub
Betrifft: AW: Range Syntax
von: Rafael
Geschrieben am: 13.10.2003 15:11:34
Vielen Dank, Dan!
Rafael