Suchfeld + RangeSelect und Rangecopy

Hallo ihr Lieben!
Ich bin nicht gerade bewandert was das Programmieren von Excel Makros oder VBA angeht, aber wenn sich ein Problem offenbart, dann muss ich es einfach lösen.
Es geht wahrscheinlich eher um die Verkettung mehrerer Probleme, ich schildere erst einmal die ersten beiden "Steps".
Ich habe eine Mappe mit einer Tabelle (Tabelle 1). In dieser Tabelle sind Personen aufgelistet, pro Name gibt es einen Zellverbund (Bsp.: Otto Schmidt = Zellverbund B10,B11).
Hinter diesen Namen stehen in den Spalten D bis J dem Namen zugeordnete Werte.
Step1:
Ich hätte gerne ein Suchfeld, welches in Spalte B den Namen sucht, und diese, sowie die dazugehörigen Spalten D bis J markiert (Bsp.: Otto Schmidt wird gesucht, als Ergebnis der Suche werden die Zellen B10:J11 markiert.
Step2:
Nun möchte ich mit einem Button die markierten Zellen auf eine zweite (entweder versteckte oder vom Makro/VBA angelegte Tabelle kopieren.
Das ist im Prinzip schon alles,
ich beschreibe zum ersten mal solcherlei, also wenn noch Infos fehlen dann werde ich sie natürlich anfügen.
Danke vielmals im Voraus!
Malte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub cmbKopieren_Click() 'Selektieren Zellbereich zum Namen in eine Kopie des Musterblattes kopieren Dim wksZiel As Worksheet, Zeile As Long With Me.ComboBox_Namen If .ListIndex <> -1 Then Zeile = .List(.ListIndex, 1) wksMuster.Visible = xlSheetVisible ' wksMuster.Copy 'neue Mappe wksMuster.Copy after:=wksData 'neues Blatt Set wksZiel = ActiveSheet wksMuster.Visible = xlSheetHidden wksZiel.Name = .Text With wksData 'Datenbereich zum Namen nach Zelle A2 kopieren ' .Range(.Cells(Zeile, 2), .Cells(Zeile + 1, 10)).Copy wksZiel.Cells(2, 1) 'Zellbereich aus Spalte B nach A2:A3 kopieren .Range(.Cells(Zeile, 2), .Cells(Zeile + 1, 2)).Copy _ Destination:=wksZiel.Range("A2:A3") 'Zellbereich aus Spalte D:J nach B2:H3 kopieren .Range(.Cells(Zeile, 4), .Cells(Zeile + 1, 10)).Copy _ Destination:=wksZiel.Range("B2:H3") End With Unload Me Else MsgBox "Bitte erst einen Namen in der Combobox wählen" End If End With End Sub

Hallo Franz!
Habe versucht, deinen Code auf mehrere Seiten des wkb zu erweitern, aber anscheinend habe ich etwas falsch gemacht. hier mein codebit wo der Debugger mich hinschickt mit der Fehlermeldung:
"Die Select Methode des Range-Objektes konnte nicht ausgeführt werden."


Private Sub ComboBox_Namen_Change()
'Zellbereich zum selektierten Namen selektieren
Dim wksZiel As Worksheet, Zeile As Long
With Me.ComboBox_Namen
If Me.ComboBox_Namen.ListIndex <> -1 Then
Zeile = .List(.ListIndex, 1)
With wksData
Range(.Cells(Zeile, 2), .Cells(Zeile + 1, 23)).Select
End With
With wksData2
Range(.Cells(Zeile, 2), .Cells(Zeile + 1, 18)).Select
End With
With wksData3
Range(.Cells(Zeile, 2), .Cells(Zeile + 1, 27)).Select
End With
With wksData4
Range(.Cells(Zeile, 2), .Cells(Zeile + 1, 29)).Select
End With
ActiveWindow.ScrollRow = Zeile
End If
End With
End Sub

Ich vermute mal ganz stark, dass ich irgendeinen Grundlegenden Fehler gemacht habe.
Folgendes habe ich sonst noch geändert:


Private Sub UserForm_Initialize()
Dim Zeile As Long, strName As String
Set wksData = ThisWorkbook.Worksheets("Tabelle1")
Set wksData2 = ThisWorkbook.Worksheets("Tabelle2")
Set wksData3 = ThisWorkbook.Worksheets("Tabelle3")
Set wksData4 = ThisWorkbook.Worksheets("Tabelle4")
Set wksMuster = ThisWorkbook.Worksheets("Muster")
wksData.Activate
'Namen und Zeilennummern in Auswahlliste der Combobox einlesen
With wksData
For Zeile = 10 To .Cells(.Rows.Count, 2).End(xlUp).Row Step 2
strName = .Cells(Zeile, 2).Text
With Me.ComboBox_Namen
.AddItem strName
.List(.ListCount - 1, 1) = Zeile
End With
Next
End With
End Sub

und


Option Explicit
Private wksData As Worksheet
Private wksData2 As Worksheet
Private wksData3 As Worksheet
Private wksData4 As Worksheet
Private wksMuster As Worksheet

Ziel soll es sein, dass es mehrere Range Objekte auf mehreren Seiten gibt, die alle auf das Musterblatt kopiert werden. Ob das nacheinander passiert oder ob alles gleichzeitig ausgewählt wird spielt dabei glaube ich keine Rolle.
Danke dir vielmals im Voraus!
LG
Malte

Beliebteste Forumthreads (12 Monate)

Suchfeld + RangeSelect und Rangecopy

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread