ich versuche mich seit neuestem mit VBA und bin auf ein mir unlösbares Problem gestoßen und hoffe ihr könnt/wollt mir helfen :). Unten habe ich euch den Code hingeschrieben. Er tut bis zu einer gewissen Stelle genau was er soll. Kurzzusammenfassung:
Er nimmt Zelle (C4) und sucht diese in dem Sheet "Raumbuch" wenn er es gefunden hat kopiert er mehrere einzelne Zellen in Sheet "Raum". Nach den ersten Zellen, welche einwandfrei funktionieren muss er aber einen ganzen Bereich im Raumbuch kopieren und in dem Sheet Raum transponiert einfügen. Die Zeile Code habe ich entsprechend fett gemacht.
Ich hoffe ihr könnte mir helfen. Ihr seid meine letzte Hoffung :).
Liebe Grüße
Lucas
Private Sub ComboBox1_Change()
'Zelle (C/4) wird im Raumbuch gesucht
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
'Call Raum_aufrufen_Callfunktion
'Kopfzeile
wksRaumbuch.Cells(Suchergebnis.Row, 1).Copy wksRaum.Cells(4, 3) 'Raumbezeichnung
wksRaumbuch.Cells(Suchergebnis.Row, 2).Copy wksRaum.Cells(5, 3) 'Raumbezeichnung
'Aufbau beginnend mit Wand
'
wksRaumbuch.Range(Cells(Suchergebnis.Row, 16), Cells(Suchergebnis.Row, 135)).Copy
wksRaum.Cells(11, 3).PasteSpecial Transpose:=True
Else
MsgBox "Die angebene Raumnummer ist in der Datenbank nicht vorhanden."
End If
Raumnummer.Hide
End With
End Sub