Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in Matrix einfügen(2 Bedingungen, 2 Blätter)

Werte in Matrix einfügen(2 Bedingungen, 2 Blätter)
06.03.2007 11:11:00
Robert
Hallo Excel Kollegen,
Hoffentlich könnt ihr mir helfen.
Ich habe eine Mappe(Hauptbuch mit 3 Arbeitsblätter (Beispiel).
Auf Arbeitsblatt 2 und 3 hat es von B1 bis IT1 Spaltennamen und in den Zellen A2 bis A13 befinden sich Datums. Ich kopiere Mappe vor Mappe einen Wert und möchte dass die im Hauptbuch aufgrund Spaltename und Datum auf Blatt 2 oder 3 eingefügt wird. Also, wenn die Bedingungen auf Blatt2 zutreffen dann soll dort eingefügt werden und sonst halt auf Blatt3. Ein Teil der Code (loop) habe ich unten eingefügt aber vielleicht bin ich auf dem falschen Weg. So wie der Code jetzt ist, werden die Werte auf jedes Blatt im Array eingefügt und wohl deswegen weil jedes Blatt beim einfügen aktiviert ist. Wäre schön wenn ihr eine Lösung habt. In meine Bücher finde ich leider nichts.
Grüsse, Robert
Dim SearchRow as Integer
Dim SearchCol As Integer
Workbooks("Hauptbuch.xls").Activate
Worksheets(Array("Blatt1", " Blatt2")).Select
Worksheets("Blatt1").Activate
Rows("1:1").Select
Selection.Find(What:=Range("A1").Value, LookIn:=xlValues).Select
SearchCol = Selection.Column
Columns("A:A").Select
Selection.Find(What:=Range("B1").Value, LookIn:=xlValues).Select
SearchRow = Selection.Row
Cells(SearchRow, SearchCol).Select
ActiveSheet.Paste

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in Matrix einfügen(2 Bedingungen, 2 Blätter)
08.03.2007 06:28:03
marcl
Hallo Robert,
versuch mal das (ist aber nicht geprüft)
Sub Dein Makro()
Dim SearchRow As Integer
Dim SearchCol As Integer
Workbooks("Hauptbuch.xls").Activate
On Error GoTo weiter ' Bei Fehler
Worksheets("Blatt1").Select
Rows("1:1").Select
Selection.Find(What:=Range("A1").Value, LookIn:=xlValues).Select
SearchCol = Selection.Column
Columns("A:A").Select
Selection.Find(What:=Range("B1").Value, LookIn:=xlValues).Select
SearchRow = Selection.Row
Cells(SearchRow, SearchCol).Select
ActiveSheet.Paste
Exit Sub
weiter:
On Error Resume Next ' bei Fehler weiter machen
Worksheets("Blatt2").Select
Rows("1:1").Select
Selection.Find(What:=Range("A1").Value, LookIn:=xlValues).Select
SearchCol = Selection.Column
Columns("A:A").Select
Selection.Find(What:=Range("B1").Value, LookIn:=xlValues).Select
SearchRow = Selection.Row
Cells(SearchRow, SearchCol).Select
ActiveSheet.Paste
End Sub

Gruß
marcl
Anzeige
AW: Werte in Matrix einfügen(2 Bedingungen, 2 Blätter)
08.03.2007 13:54:44
Robert
Hallo Marcl,
Ich danke dir, deine Lösung hat geholfen. So kann ich sogar bis auf N Anzahl sheets zugreifen ohne komplexe Code.
Besten Dank und Grüsse,
Robert

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige