Office: (Office 2013) Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich

Helfe beim Thema Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo liebes Forum, ich habe folgendes Problem: Ich habe in einer Userform ein Suchfeld platziert. Über den CommandButton3 soll anschließend das... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von domme1990, 6. März 2019.

  1. Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich


    Hallo liebes Forum,

    ich habe folgendes Problem:
    Ich habe in einer Userform ein Suchfeld platziert. Über den CommandButton3 soll anschließend das Tabellenblatt "DB" und die Spalte B nach dem Inhalt durchsucht werden und alle Inhalte aus der gefundenen Zeile in verschiedenen TextBoxen ausgegeben werden.

    Das Funktioniert auch alles einwandfrei, solange ich die Userform von dem Tabellenblatt DB ausführe. Wenn ich dies von einem anderen Tabellenblatt aus machen möchte, funktioniert dies nicht. Ich bekomme immer ab der Zeile " .TextBox2 = Cells(rngC.Row, 1)" einen Fehler angezeigt.

    Könnt Ihr mir helfen, wie ich der Formel sagen kann, dass er die komplette Formel auf das Tabellenblatt "DB" anwenden soll?

    Vielen Dank und Liebe Grüße


    PHP:
             Private Sub CommandButton4_Click()
    Dim lngSuch
    Dim i 
    As Integer
    Dim LRow 
    As Long
    Dim rngC 
    As Range
    LRow 
    Worksheets("DB").Cells(Rows.Count1).End(xlUp).Row
    lngSuch 
    "*" TextBox12.Text "*"
    Set rngC Worksheets("DB").Range("B1:B" LRow).Find(lngSuch_
    Range
    ("B" LRow), xlValues)
    With Worksheets("DB")
    If 
    Not rngC Is Nothing Then
    .TextBox2 Cells(rngC.Row1)
    .
    TextBox3 Cells(rngC.Row2)
    .
    TextBox4 Cells(rngC.Row3)
    .
    TextBox5 Cells(rngC.Row4)
    .
    TextBox6 Cells(rngC.Row5)
    .
    TextBox7 Cells(rngC.Row6)
    .
    TextBox8 Cells(rngC.Row7)
    .
    TextBox9 Cells(rngC.Row8)
    .
    TextBox10 Cells(rngC.Row9)
    .
    TextBox11 Cells(rngC.Row10)
    .
    TextBox19 Cells(rngC.Row13)
    .
    TextBoxVerliehen Cells(rngC.Row11)
    Else
    MsgBox "Leihequipment wurde nicht gefunden."
    End If
    End With
    End Sub
    :)
     
    domme1990, 6. März 2019
    #1
  2. Du hast keinen Worksheet-Bezug bei

    Code:
    so daß immer vom aktuellen Blatt ausgegangen wird
    Der Punkt fehlt

    Code:
    damit der Bezug zum Blatt DB hergestellt wird (With...)
     
    Scorefun, 8. März 2019
    #2
  3. Hallo, *Smilie

    du musst es so schreiben: *wink.gif*

    Code:
    Der Punkt muss vor "Cells", denn du beziehst dich mit dem "With" auf das Tabellenblatt.
     
    Case_Germany, 8. März 2019
    #3
  4. Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich

    Es fehlt jeweils ein Punkt vor "Cells..."
    Code:
    Wenn du den nicht machst, bezieht sich das auf das angezeigte Tabellenblatt anstelle das Blatt "DB".
     
    MisterBurns, 8. März 2019
    #4
  5. Vielen Dank für eure Hilfe.

    Leider funktioniert es trotz des Punktes nicht. Es wird immer noch ein Fehler ausgegeben:


    Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich fehler123.jpg


    Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich fehler.jpg


    Code:

    PHP:
             Private Sub CommandButton4_Click()
    Dim lngSuch
    Dim i 
    As Integer
    Dim LRow 
    As Long
    Dim rngC 
    As Range
    LRow 
    Worksheets("DB").Cells(Rows.Count1).End(xlUp).Row
    lngSuch 
    "*" TextBox12.Text "*"
    Set rngC Worksheets("DB").Range("B1:B" LRow).Find(lngSuch_
    Range
    ("B" LRow), xlValues)
    With Worksheets("DB")
    If 
    Not rngC Is Nothing Then
    .TextBox2 = .Cells(rngC.Row1)
    .
    TextBox3 = .Cells(rngC.Row2)
    .
    TextBox4 = .Cells(rngC.Row3)
    .
    TextBox5 = .Cells(rngC.Row4)
    .
    TextBox6 = .Cells(rngC.Row5)
    .
    TextBox7 = .Cells(rngC.Row6)
    .
    TextBox8 = .Cells(rngC.Row7)
    .
    TextBox9 = .Cells(rngC.Row8)
    .
    TextBox10 = .Cells(rngC.Row9)
    .
    TextBox11 = .Cells(rngC.Row10)
    .
    TextBox19 = .Cells(rngC.Row13)
    .
    TextBoxVerliehen = .Cells(rngC.Row11)
    Else
    MsgBox "Leihequipment wurde nicht gefunden."
    End If
    End With
    End Sub
     
    domme1990, 8. März 2019
    #5
  6. Logisch, weil die TextBoxen eben nicht Teil des Worksheets sind. D.h. vor TextBox2 (usw) gehört der Punkt nicht.
    Noch besser ist du schreibst
    Code:
    Case hatte darauf bereits hingewiesen, ich selbst hatte es auch übersehen.
     
    MisterBurns, 8. März 2019
    #6
  7. Ach klasse. Hatte nicht gesehen dass bei Case der Punkt fehlte vorne.

    Es funktioniert jetzt.

    Vielen lieben Dank für eure Hilfe. *Smilie
     
    domme1990, 8. März 2019
    #7
Thema:

Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich

Die Seite wird geladen...
  1. Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich - Similar Threads - Excel VBA Zugriff

  2. Aus Excel heraus verschiedene IP Adressen anpingen mit VBA

    in Microsoft Excel Hilfe
    Aus Excel heraus verschiedene IP Adressen anpingen mit VBA: Hallo zusammen. Vorweg: VBA kenn ich mich null aus! :-( Mein Ziel erst einmal: In einer Tabelle stehen in der Spalte C von 8 bis 21 verschiedene IP-Adressen. Per Klick auf einen Button soll dann...
  3. Excel VBA - ListBox mit TextBox Filtern

    in Microsoft Excel Hilfe
    Excel VBA - ListBox mit TextBox Filtern: Grüße! Bin sonst stiller Mitleser und kann im Regelfall meine Probleme durch andere Forenbeiträge ableiten und passend abändern, aber hier bin ich an einem Punkt, wo meine VBA-Kenntnisse auf ihre...
  4. VBA-Macros in Excel 2019 unter Windows 11

    in Microsoft Excel Hilfe
    VBA-Macros in Excel 2019 unter Windows 11: Ich habe in Excel 2019 (Office Pro 2019) unter Windows 10 Pro ein VBA-Makro erstellt. Diese Arbeitsmappe läuft auf verschiedenen Systemen unter Excel 2019/Windows10 ohne Probleme. Jetzt habe ich...
  5. Daten Kopieren aus einer zweiten Datei

    in Microsoft Excel Hilfe
    Daten Kopieren aus einer zweiten Datei: Ich weiss nicht ob dies Hier schon existiert. Leider habe ich noch nichts gefunden. Ich habe eine Excel Datei (Kunden Angaben) und eine zweite Datei (Mappe1). Wenn beide geöffnet sind kann ich aus...
  6. VBA Text in Zellen einfügen und farbigem Hintergrund

    in Microsoft Excel Hilfe
    VBA Text in Zellen einfügen und farbigem Hintergrund: Hallo zusammen, ich möchte eine Zeile mit Text und farbigem Hintergrund einfügen. Ich habe bereits einen kleinen Schnippsel VBA-Code gefunden. Dieser erstellt in der Tabelle Tabelle1 in Zeile 2...
  7. VBA duplikate finden und auf Kriterien prüfen

    in Microsoft Excel Hilfe
    VBA duplikate finden und auf Kriterien prüfen: Liebe Excel Gemeinschaft Ich möchte gerne mit VBA code Doppelte Einträge finden und 2 Kriterien sollen Geprüft werden un anderen spalte. Zu guter letzte sollte in einer weiter die...
  8. VBA - Zugriff auf Excel Dateien in MS-Teams

    in Microsoft Teams Hilfe
    VBA - Zugriff auf Excel Dateien in MS-Teams: Hallo zusammen, ist es möglich per Excel-VBA auf eine Excel-Datei zuzugreifen die in MS-Teams liegt? Der Prozess soll wie folgt aussehen: 1) Datei Status in MS Teams abrufen (ist die Datei...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden