Thema Datum  Von Nutzer Rating
Antwort
18.07.2013 09:54:10 Tutti
NotSolved
Blau Daten aus einer Tabelle nach Aktenzeichen abfragen und in einer Box wiedergeben
 18.07.2013 13:52:20 Neuhäusler Korbinian
NotSolved
18.07.2013 14:10:14 Gast62924
NotSolved

Ansicht des Beitrags:
Von:
Neuhäusler Korbinian		 Datum:
18.07.2013 13:52:20		 Views:
681		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus einer Tabelle nach Aktenzeichen abfragen und in einer Box wiedergeben

Bitteschön!

Sub Schaltfläche1_Klicken()
Dim Abfrage As String
Dim aArray(17) As String
Dim i As Integer
Dim letzte As Integer
Dim Ergebnis As String
Dim spalte As Integer

Abfrage = InputBox("Geben Sie ihr Gewünschtes Aktenzeichen ein!", "AZ-Abfrage")

letzte = ThisWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To letzte

    If ThisWorkbook.Worksheets("Tabelle1").Range("A" & i).Value = Abfrage Then
    MsgBox "Wert vorhanden in Zelle A" & i & vbCrLf & _
            "Werte aus der Zeile sind nun im Array verfügbar!"
            
        For spalte = 1 To 19

        'aArray(spalte - 2) = ThisWorkbook.Worksheets("Tabelle1").Cells(i, spalte).Value
        Ergebnis = Ergebnis & vbCrLf & "Wert in Spalte " & spalte & ": " & ThisWorkbook.Worksheets("Tabelle1").Cells(i, spalte).Value
        Next spalte
    
    End If

Next i

MsgBox Übergabe

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.07.2013 09:54:10 Tutti
NotSolved
Blau Daten aus einer Tabelle nach Aktenzeichen abfragen und in einer Box wiedergeben
 18.07.2013 13:52:20 Neuhäusler Korbinian
NotSolved
18.07.2013 14:10:14 Gast62924
NotSolved