Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.11.2023 00:03:27
userform Image mit LoadPicture Bild wird nicht geladen
28.11.2023 20:42:07
VBA - Bereich bis zur letzten nicht leeren Zelle kopieren
28.11.2023 19:48:15
Laufzeitfehler 50290 bei jeder zweiten Ausführung
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige