Hallo liebe VBA Profis,
ich komme leider nicht weiter und bin noch eine Anfängerin.... Unten dargestellter Code spuckt mir den Fehler "bezeichner unter dem cursor nicht erkannt "
aus. Nach längerem Googeln gehe ich davon aus, dass es an der doppelten Range im Code liegt. der Fehler liegt in der Zeile:
wksRaumbuch.Range(Cells(Suchergebnis.Row, 16), Cells(Suchergebnis.Row, 135)).Copy
wksRaum.Cells(11, 3).PasteSpecial Transpose:=True
Ich hoffe sehr, dass ihr mir weiterhelfen könnt. Application.ScreenUpdating = False Dim Suchergebnis As Range Dim Range As Integer Dim SuchWert As String Dim wksRaum As Worksheet Dim wksRaumbuch As Worksheet Set wksRaum = ThisWorkbook.Worksheets("Raum") Set wksRaumbuch = ThisWorkbook.Worksheets("Raumbuch") SuchWert = ComboBox1 With Worksheets("Raumbuch").Range("A1:A100") Set Suchergebnis = .Find(SuchWert) If Not Suchergebnis Is Nothing Then '************************************************************************************************************************** 'Kopfzeile wksRaumbuch.Cells(Suchergebnis.Row, 1).Copy wksRaum.Cells(4, 3) 'Raumbezeichnung wksRaumbuch.Cells(Suchergebnis.Row, 2).Copy wksRaum.Cells(5, 3) 'Raumbezeichnung '************************************************************************************************************************** wksRaumbuch.Range(Cells(Suchergebnis.Row, 16), Cells(Suchergebnis.Row, 135)).Copy wksRaum.Cells(11, 3).PasteSpecial Transpose:=True <div>Else</div><div> MsgBox "Die angebene Raumnummer ist in der Datenbank nicht vorhanden."</div><div>End If</div><div>Raumnummer.Hide</div><div> </div><div>End With</div><div> </div><div> </div><div>End Sub</div>
Vielen Dank im Voraus <3
|