Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:54:17
Durchschnittswerte zwischen Tagen berechnen
16.04.2024 09:51:15
Frage: KPI - Logistik Dashboard
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auschneiden und Einfügen bestimmter Zellen

Auschneiden und Einfügen bestimmter Zellen
15.08.2018 15:00:53
BastianB
Hallo zusammen!
Mein Problem sieht folgendermaßen aus:
Ich habe einen Inhalt in Zelle A1 in einer Excel Datei 1 und möchte diesen durch ein Makro in eine andere Excel Datei 2 in eine Ziel-Tabelle in die nächste freie Zelle kopieren.
Diese Tabelle 2 besteht aus 2 Reihen "C" und "D".
Reihe "C" beinhaltet IP-Adressen und Reihe "D" verschiedene Namen.
Der Inhalt aus A1 in der Excel Datei 1 soll in "D" in die nächste freie Zelle eingefügt werden und wenn das geschehen ist, soll die IP-Adresse aus der danebenliegenden Zelle in Reihe "C" wiederum kopiert und in Zelle B1 in der Ursprungsdatei ausgegeben werden.
Es soll also praktische eine Zuordnung passieren und dann die zum Namen zugehörige IP-Adresse ausgegeben werden.
Jetzt kann ich einige Zwischenschritte mit Hilfe von Tutorials abbilden, aber ich würde doch gerne wissen, ob jemand hier da das gesamte Makro erzeugen kann, bzw. mir zeigen kann, wie das möglich wäre.
Vielen Dank im Voraus
Bastian

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auschneiden und Einfügen bestimmter Zellen
15.08.2018 16:45:35
Klexy
Du schreibst den Wert aus A1 in eine Variable:
Variable = Range("A1").Value
Dann wechselst du in die zweite Datei.
Die erste freie Zelle in Spalte D triffst du am besten wenn du dich von unten heranpirschst:
Range("D10000").End(xlUp).Offset(1, 0).Select
Und dann lädst du dort deine Variable ab:
Selection.Value = Variable
Oder direkt ohne Select, damit nicht manche hier im Forum graue Haare kriegen:
Range("D10000").End(xlUp).Offset(1, 0).Value = Variable
Dann nimmst du die Nebenzelle in die Variable:
Variable = Range("D10000").End(xlUp).Offset(0, -1).Value
Dann wechselst du zurück in die erste Datei und lädst die Variable in Zelle B1 ab:
Range("B1").Value = Variable
Anzeige
AW: Auschneiden und Einfügen bestimmter Zellen
16.08.2018 11:17:51
BastianB
Hi nochmal.
Also vielen Dank nochmal für diese Tipps. Leider wirft der mir jetzt dauernd den Fahler: "Index außerhalb des gültigen Bereichs" aus. Mein Code sieht gerade so aus: 

Sub Test()
ScannerNummer = Workbooks("Makro.xlsm").Worksheets("Tabelle1").Range("A1").Value
Windows("IP_Pool.xls").Activate
Range("B508").End(xlUp).Offset(1, 0).Select
Selection.Value = ScannerNummer
ScannerNummer = Range("B508").End(xlUp).Offset(0, -1).Value
Windows("Makro.xlsm").Activate
Range("B1").Value = ScannerNummer
End Sub

Zum Verständnis, da ich ein bisschen was geändert habe: Ich starte das Makro über einen Button in "Makro.xlsm". Dort befindet sich in Spalte A eine ScannerNummer, die ich dann in das zweite Dokument "IP_Pool" in die nächste freie Zelle in Spalte B einfügen möchte. In Spalte A in diesem Dokument stehen 508 Ip-Adressen. Wenn die Scanner Nummer in Zelle B312 z.B. eingefügt wird, dann soll das Makro als nächstes die IP aus Zelle A312 kopieren und in "Makro.xlsm" in Zelle B1 einfügen.
Hoffe das ist soweit klar und vielen Danke für alle weiteren Anregungen! (P.S. Man sieht ja, dass ich absoluter VBA Neuling bin)
Anzeige
AW: Auschneiden und Einfügen bestimmter Zellen
16.08.2018 14:52:08
Klexy
Funktioniert bei mir einwandfrei wie du es geschrieben hast.
Schau dir mal an, bei welcher Code-Zeile er hängenbleibt und diese Meldung ausgibt.
AW: Auschneiden und Einfügen bestimmter Zellen
16.08.2018 18:22:14
Werner
Hallo Bastian,
bist du sicher, dass deine IP_Pool eine .xls ist und nicht eine .xlsx?
Außerdem würde ich an deiner Stelle auch noch das entsprechende Tabellenblatt der IP_Pool mit angeben. Und dann auch ohne Select. 
Sub Test()
With Workbooks("IP_Pool.xlsx").Worksheets("Tabelle1") 'Blattname anpassen
.Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, 2).Offset(1, 0) = _
ThisWorkbook.Worksheets("Tabelle1").Range("A1")
ThisWorkbook.Worksheets("Tabelle1").Range("B1") = _
.Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, 2).Offset(0, -1)
End With
End Sub
Gruß Werner
Anzeige
AW: Auschneiden und Einfügen bestimmter Zellen
15.08.2018 16:48:15
SF
Hola,
verlinkst du bitte deine Fragen in den verschiedenen Foren untereinander?
Danke.
Gruß,
steve1da
schon was von Feedback gehört? owT
20.08.2018 18:44:31
Feedback

303 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Von aktiver Zelle in Spalte A springen
Susi

Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann...
16.10.2008 12:36:20
Thread-ID: 1016826
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
12
2
3
7
2
2
2
2
4
5
6
1
4
2
5
9
9
2
2
5
4
2