Das Archiv des Excel-Forums

Range Syntax

Bild

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
Bild


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



Bild


Betrifft: AW: Range Syntax
von: Rafael
Geschrieben am: 13.10.2003 15:11:34

Vielen Dank, Dan!

Rafael


 Bild