Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mit bitte um ein makro

mit bitte um ein makro
06.09.2004 13:32:44
Andreas
Hallo folgendes problem:
1. es werden 5 beliebige leere zellen (in test.xls; tabelle1) "der reihe nach" markiert (z.b. A10,B5,C13,A1,B20)
2. in einer anderen Tabelle (in probe.xls; tabelle1) sind 5 mit werten belegte zellen markiert (z.b. A1,B1,C1,D1,E1)
3. in test.xls;tabelle1 sollen die zellen der reihe nach mit den werten aus probe.xls; tabelle1 aufgefüllt werden
(A10 test.xls mit A1 probe.xls---B5 test.xls mit B1 probe.xls....)
kann mir dazu jemand ein kleines makro schreiben
vielen vielen dank
Andr

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

Betreff
Datum
Anwender
Anzeige
AW: mit bitte um ein makro
Marcl
Hallo Andr,
trage das in ein Modul in Tabelle probe.

Sub s()
Sheets("Tabelle1").Select
Workbooks.Open Filename:= _
"C:\Eigene Dateien\test.xls"
Sheets("Tabelle1").Select
Range("A10").Copy
Windows("probe.xls").Activate
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("test.xls").Activate
Range("B5").Copy
Windows("probe.xls").Activate
Range("B1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("test.xls").Activate
Range("C13").Copy
Windows("probe.xls").Activate
Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("test.xls").Activate
Range("A1").Copy
Windows("probe.xls").Activate
Range("D1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("test.xls").Activate
Range("B20").Copy
Windows("probe.xls").Activate
Range("E1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Gruß
Marcl
Anzeige
danke aber.....!!!!
06.09.2004 15:27:42
Andr
Hallo
so funktionierts aber nur wenn die markierten zellen in test.xls immer die selben sind. gewünscht wäre aber wenn die markierten zellen in test.xls immer verschieden sein können. das makro sollte für BELIEBIGE, JEDESMAL VERSCHIEDENE zellen in test.xls funktionieren.
AW: danke aber.....!!!!
GerdZ
Hallo Andr,
eine Möglichkeit wäre: 
Dim probe As Range, test As Range, x As Integer
Workbooks("probe.xls").Activate
Set probe = Selection
Workbooks("test.xls").Activate
Set test = Selection
If probe.Areas.Count = probe.Count Then
For x = 1 To test.Count
test.Areas(x).Value = probe.Areas(x).Value
Next x
Else
For x = 1 To test.Count
test.Areas(x).Value = probe(x).Value
Next x
End If
Gruß
Gerd
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige