|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.05.2013 10:18:59 |
Eddy88 |
|
|
|
17.05.2013 11:38:07 |
Holger |
|
|
|
21.05.2013 17:34:59 |
Eddy88 |
|
|
 Werte auslesen und kopieren für Profis |
21.05.2013 23:16:29 |
Gast86760 |
|
|
Von:
Gast86760 |
Datum:
21.05.2013 23:16:29 |
Views:
1822 |
Rating:
|
Antwort:
|
Thema:
Werte auslesen und kopieren für Profis |
|
Meinem Verständnis nach wird so ein Schuh daraus (Quellcode kommt in ein Modul):
Option Explicit
Sub BeispielAufruf()
Dim wksSuch As Excel.Worksheet
Dim rngZiel As Excel.Range
Dim strSuch As String
Set wksSuch = Tabelle1 'ggf. anpassen
Set rngZiel = Tabelle2.Range("A1") 'ggf. anpassen
'Eingabemöglichkeit für Benutzer:
'(ggf. anpassen)
strSuch = InputBox(Title:="Suche ...", _
Prompt:="Suchtext angeben:")
If Trim$(strSuch) = "" Then
Exit Sub
ElseIf MySearchCopyAndPaste(strSuch, wksSuch, rngZiel) Then
MsgBox "Vorgang für den Ausdruck '" & strSuch & "' erfolgreich abgeschlossen.", vbInformation
Else
MsgBox "Der Ausdruck '" & strSuch & "' wurde nicht gefunden.", vbExclamation
End If
End Sub
Public Function MySearchCopyAndPaste( _
Search As String, _
SearchWks As Excel.Worksheet, _
PasteTo As Excel.Range, _
Optional CaseSensitive As Boolean _
) As Boolean
Dim rngResult As Excel.Range
'nach Ausdruck (in Zeile 4) suchen ...
Set rngResult = SearchWks.Rows(4).Find( _
What:=Search, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
MatchCase:=CaseSensitive)
'Ausdruck gefunden?
If Not rngResult Is Nothing Then
'die nächsten 10 Zellen unterhalb des Ausdrucks referenzieren ...
Set rngResult = rngResult.Offset(1).Resize(RowSize:=10)
'... und Daten an den Zielort kopieren
rngResult.Copy PasteTo
'Rückgabewert setzen (entspr.: Vorgang erfolgreich)
MySearchCopyAndPaste = True
End If
End Function
|
- 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
|
|
17.05.2013 10:18:59 |
Eddy88 |
|
|
|
17.05.2013 11:38:07 |
Holger |
|
|
|
21.05.2013 17:34:59 |
Eddy88 |
|
|
Werte auslesen und kopieren für Profis |
21.05.2013 23:16:29 |
Gast86760 |
|
|