Range Syntax

Forumthread: Range Syntax
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Range Syntax

Range Syntax

13.10.2003 16:39:43

Rafael

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Range Syntax

13.10.2003 17:07:32

Dan
AW: Range Syntax

13.10.2003 17:11:34

Rafael

AW: Range Syntax

13.10.2003 17:07:32

Dan

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