SelectionChange problem
verstaubte
ich baue mir gerade eine mappe in der ich inventar verwalten möchte. allerdings nur im second level, sprich diese mappe dient ausschliesslich dazu die daten vorzubereiten und über ein entsprechendes plug-in direkt auf einen labeldrucker auszugeben.
ich habe jetzt das problem das ich wenn daten eingegeben werden diese noch weiter berechnet werden.
das geht auch alles, bis auf das suchen nach den ergebnissen. diese sind leider ALLE berechnet oder mit entsprechenden funktionen neu aufgeteilt (Text/EAN). wie kann ich die untenstehende suche so gestalten das ich nach den werten suchen kann?
bei der SuFu benutze ich dieses script welches ich mir mal irgendwann aus einem anderen forum _
kopiert habe:
Private Sub EAN_Suche_Click()
Dim raZelle As Range ' Variable für die zu suchende Zelle
Dim varSuchbegriff As Variant ' Variable für den Suchbegriff
Dim strAbfrage As String ' Variable für den Abbruch der Suche
Dim strStartAdresse As String ' Variable für die Adresse der ersten _
gefundenen Zelle in der aktuellen Tabelle
Dim wsTabelle As Worksheet ' Variable für Tabelle als Objekt
' Suchbegriff abfragen
varSuchbegriff = InputBox("Bitte eine EAN oder genauen Begriff eingeben:", "Suchabfrage", "" _
_
_
)
' ein Suchbegriff wurde eingegeben
If varSuchbegriff "" Then
' Schleife über alle Tabellen
For Each wsTabelle In ThisWorkbook.WorkSheets
With WorkSheets(wsTabelle.Name)
' Suchbegriff im benutzten Bereich suchen
Set raZelle = .UsedRange.Find(varSuchbegriff, , , xlWhole, , xlNext)
' wenn Suchbegriff gefunden
If Not raZelle Is Nothing Then
' gefundene Zelle in die linke obere Ecke
Application.Goto Reference:=.Range(raZelle.Address), Scroll:=True
If MsgBox(wsTabelle.Name & Chr(9) & raZelle.Address(0, 0) & Chr(10) & Chr( _
_
_
_
10) & "Suche beenden?" _
, vbYesNo + vbQuestion, "Suchbegriff gefunden in:") = 6 Then
' Prozedur verlassen wenn auf Ja geklickt wurde
Exit Sub
Else
' Adresse der ersten gefundenen Zelle auf Variable schreiben
strStartAdresse = raZelle.Address
Do
' nächste Zelle suchen
Set raZelle = .UsedRange.FindNext(raZelle)
' keine weitere Zelle gefunden, deshalb Schleife verlassen
If raZelle.Address = strStartAdresse Then Exit Do
' gefundene Zelle in die linke obere Ecke
Application.Goto Reference:=.Range(raZelle.Address), Scroll:=True
If MsgBox(wsTabelle.Name & Chr(9) & raZelle.Address(0, 0) & Chr(10) _
_
_
_
& Chr(10) & "Suche beenden?" _
, vbYesNo + vbQuestion, "Suchbegriff gefunden in:") = 6 Then
' Prozedur verlassen wenn auf Ja geklickt wurde
Exit Sub
End If
Loop
End If
Else
' laufende Tabelle ist nicht die letzte
If wsTabelle.Index WorkSheets.Count Then
If MsgBox(wsTabelle.Name & Chr(10) & Chr(10) & "Suche beenden?" _
, vbYesNo + vbQuestion, "Suchbegriff nicht gefunden in:") = 6 Then
' Prozedur verlassen wenn auf Ja geklickt wurde
Exit Sub
End If
Else
' Information, dass in der letzten Tabelle der Suchbegriff nicht vorkommt
If MsgBox(wsTabelle.Name & Chr(10) & Chr(10) & "Suche beendet", _
vbOKOnly + vbExclamation, _
"Suchbegriff nicht gefunden in:") = vbOK Then Exit Sub
End If
End If
End With
Next wsTabelle
' Information, dass Suche beendet
MsgBox "Keine weitere Zelle gefunden", vbExclamation, "Suche beendet"
' Variable leeren
Set raZelle = Nothing
End If
End Sub
oder kennt jemand eine andere möglichkeit?
so und jetzt mein eigentliches problem wie im titel beschrieben.....
ob obiger probleme bediene ich mich dieses codes
Sub Suche_SelectionChange(ByVal Target As Excel.Range)
Sheets("Zeitschr").Range("c3:c1000").Copy
Sheets("Zeitschr").Range("a3:a1000").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub um eine indexzeile als text zu bekommen nach der ich suchen kann.
auch wieder ein problem für mich da ich es nicht hinbekomme diese anweisung für alle blätter geltend zu machen. ich kann immer nur ein blatte behandeln.
wenn das mit einem rutsch funktionieren würde könnte ich mit dem rest erstmal leben, da die SuFu nur zum pflegen der daten gedacht ist.
werde mich irgendwann dann mal um eine andere lösung bemühen wenn ich nicht mehr so im anfängerdschungel stecke.
hoffe ihr könnt mir da weiter helfen.