Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
164to168
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Sheets Werte übergeben

VBA-Sheets Werte übergeben
01.10.2002 10:38:19
Hermann
Hallo,
bin erst seit kurzem VBA'er. Wer kann mir erklären, wie man Werte von einem Tabellenblatt-Sheet in ein anderes Tabellenblatt-Sheet übernehmen kann ? Habe es mit dem Call Befehl versucht, bekomme aber die Fehlermeldung das der Sub fehlt, obwohl dieser im anderen Tabellenblatt steht. Ich bin doch nicht auf ein TAbellenblatt begrenzt ?
Gruß
Hermann

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA-Sheets Werte übergeben
01.10.2002 11:37:48
Chris
Hallo Hermann

Wenn es nur ein einzelner Wert ist, übergebe ich diesen jeweils einer Variable und auf dem neuen Blatt wieder zurück.

z.B.
Dim a
Sheets("Blatt1").Select
a = ActiveSheet.Cells(1, 1).Formula
Sheets("Blatt2").Select
ActiveSheet.Cells(1, 1).Formula = a

(bezieht sich auf Zelle A1)

Gruss
Chris

Re: VBA-Sheets Werte übergeben
01.10.2002 11:40:55
Joachim K
Hallo Herrmann,
mit CALL werden Makros aufgerufen.


Z.B.: Wert von Tabelle1-ZelleA1 in Tabelle2-Zelle-A1 übernehmen

Sub Makro1()
Dim A
A = Sheets("Tabelle1").Range("A1").Value
Sheets("Tabelle2").Range("A1").Value = A
End Sub

Gruß
Joachim

Anzeige
Danke ....geschafft
01.10.2002 20:59:47
Hermann
Ging ja auch ohne Sub und Call mit

Sheets("Blatt1").Select
a = ActiveSheet.Cells(1, 1).Formula

ins Sheet von Tabelle2
Gruß
Hermann

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige