Office: Suchen/Kopieren/Einfügen

Guten Tag zusammen,

ich habe in VBA leider nur Grundkenntnisse und hab mir mein Wissen auch nur selbst durch probieren und kopieren angeeignet. Daher ist es sehr lückenhaft :/

Von daher komme ich bei folgendem Problem nicht weiter:


In einer Datei gibt es 2 Tabellenblätter.
Das Tabellenblatt "Auslese" holt sich aus jeder Menge anderen Dateien Daten. Da dies leider per Indirekt() erfolgt, muss ich die Werte in das andere Tabellenblatt übernehmen und diese an einer bestimmten Position einfügen. Am besten per Makro da ich es nicht dauernd per Hand machen möchte *Smilie

Zum Tabellenblattaufbau "Auslese":
In Spalte A steht ein Trigger: WAHR oder FALSCH
In Spalte B stehen Grundstücksnummern (Zahlen und z.T. Buchstaben)
Ab Spalte J kommen die zu übernehmenden Werte.

Ich wollte jetzt, dass das Makro Spalte A nach WAHR durchsucht, den Bereich ab Spalte J in der entsprechenden Zeile kopiert, und den Bereich als Werte im Tabellenblatt "Fest" reinkopiert. Dabei muss vorher noch die Zeilenposition des zugehörigen Grundstücks in "Fest" gesucht werden, also ähnlich wie SVERWEIS. Also mit der entsprechenden Grundstücksnummer in Spalte B ("Auslese") die Spalte A in "Fest" abgleichen.
Die kopierten Werte sollen dann ab der Spalte H in "Fest" hineinkopiert/überschrieben werden.


Den Anfang hab ich soweit hinbekommen. Das Makro durchsucht Spalte A und kopiert den bestimmten Bereich.
Bis jetzt fügt er den kopierten Teil aber nur in der ersten Zeile ein und weitere fortlaufend darunter (mit bzw. per "n").

Bräuchte jetzt Hilfe beim 2. Teil bzw. einen Lösungsansatz, da ich auch per Google nichts brauchbares bzw. für mich verständliches gefunden habe.


Code:

Des Weiteren funktioniert das aktuelle Makro nur im Tabellenblatt "Auslese". Kann mir jemand erklären woran das liegt? Wenn ich z.B. in "Fest" bin und es starte bekomme ich die Fehlermeldung "400"


Ich hoffe meine Ausführungen waren verständlich.

Vielen Dank schon einmal.

Gruß Ran_

:)

 

Hi,

ich habe das so verstanden: in Tabelle "Auslese" steht die Nummer in Spalte B und in Tabelle "Fest" steht sie in Spalte A?
Ungetestet:

Code:

In Tabelle "Fest" wird die Spalte A mit der Grundstücksnummer dabei nicht überschrieben, sondern die Daten ab Spalte B eingetragen. Bei deinem Code würde Spalte A überschrieben - keine Ahnung, wie das nun tatsächlich sein soll.


Der Fehler tritt bei dir deshalb auf, weil der Bezug zum korrekten Tabellenblatt in der blau formatierten Codezeile fehlt.

 

Abend Ran,

Zu dem Laufzeitfehler: Du hast beim Kopierbefehl bei den Cells den "Punkt" davor vergessen. Machst du diese Punkte nicht will er die Zellen aus dem aktuellen Blatt nehmen, aber da du .Range hast widerspricht sich das, denn die "Range" will er aus dem Sheet Auslese holen. Und ein Bereich in einem Tabellenblatt mit Zellen aus dem anderen Tabellenblatt -> funktioniert nicht.

EDIT: Einen Code hat Katrin ja schon gepostet *wink.gif*

Gruß
Daniel

 

Vielen Dank für die schnellen Antworten.

Danke Daniel, jetzt hab ich das auch verstanden und weiß wozu der Punkt davor ist *Smilie


Und danke Karin, du hast das richtig verstanden.

Jap, weiter bin ich nicht gekommen bei meinem Codeversuch. Halt nur soweit das er es woanders hin kopiert^^

Der Code funktioniert super, ich hab nur die einzufügende Spalte von 2 auf 8 geändert, da davor Daten stehen die nicht überschrieben werden sollen.

Code:

Danke nochmals *Smilie

 

Hallo, das Thema ist zwar schon älter ich habe aber ein ähnliches Problem:
Ich lese ein wert ein wert ein und suche diesen in einem anderen Tabellenblatt
wenn dieser gefunden wird soll 2 Zeilen unter dem Suchergebnis die Variable "funkist" geschrieben werden. kann mir hier wer helfen?

PHP:

         Sub Wochendaten()
Dim a As Worksheet
Set a = Worksheets("Übersicht")
Dim gfunk As Worksheet
Set gfunk = Worksheets("Wartungen Funk")
Dim kw As Integer
Dim funkist As Integer


Dim rng As Range
Dim loDeinWert As Long




funkist = a.Cells(6, 4).Value


loDeinWert = a.Cells(2, 6) gesuchter Wert

Set rng = Worksheets("Wartungen Funk").Range("31:33").Find(loDeinWert)
If rng Is Nothing Then
MsgBox "Kalenderwoche " & loDeinWert & " nicht gefunden!"
Else
rng.Select
ActiveCell.Offset(2, 0) = funkist

End If

End Sub


 

Code:

 

Vielen Dank !!!
Funktioniert Super