Anzeige
Archiv - Navigation
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Range Syntax

Range Syntax
13.10.2003 14: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
Anzeige
AW: Range Syntax
13.10.2003 15: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

Anzeige
AW: Range Syntax
13.10.2003 15:11:34
Rafael
Vielen Dank, Dan!

Rafael

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige