Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.07.2013 09:54:10 |
Tutti |
|
|
Daten aus einer Tabelle nach Aktenzeichen abfragen und in einer Box wiedergeben |
18.07.2013 13:52:20 |
Neuhäusler Korbinian |
|
|
|
18.07.2013 14:10:14 |
Gast62924 |
|
|
Von:
Neuhäusler Korbinian |
Datum:
18.07.2013 13:52:20 |
Views:
683 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Daten aus einer Tabelle nach Aktenzeichen abfragen und in einer Box wiedergeben |
18.07.2013 13:52:20 |
Neuhäusler Korbinian |
|
|
|
18.07.2013 14:10:14 |
Gast62924 |
|
|