2 Spalten in 2 Tabellen vergleichen
17.05.2019 09:51:58
Wolfgang
In Mappe1.Tabellenblatt1.Spalte A stehen Kundennamen, daneben zu versendende Bestände.
In Mappe1.Tabellenblatt2.Spalte A stehen Kundennamen, daneben Infos zur Abwicklung der Lieferungen.
Bei Doppelklick auf einen Kundennamen in Tabelle1 soll der entsprechende Eintrag in Tabelle2 gesucht und die nebenstehenden Infos aus mehreren Spalten in die Textboxen einer Userform eingelesen werden. Dort sollen sie angezeigt, evtl. aktualisiert und in die Tabelle2 zurückgeschrieben werden können.
Rudi Maintaire hat mir netterweise am 14.05.2019 einen Code zur Verfügung gestellt,
der auch bestens funktioniert, solange ich allein mit der Datei arbeite.
Es sollen aber mehrere Kollegen diese Funktion nutzen. Leider blockieren sie sich dabei durch den Excel-Schreibschutz gegenseitig.
Eine Freigabe dieser Mappe ist auch nicht möglich, weil Pivot-Tabellen enthalten sind.
Ich suche jetzt nach einer Lösung für dieses Problem und hatte die Idee,
die Abwicklungsinformationen in einer separaten zweiten Arbeitsmappe zu hinterlegen.
Daher meine Frage :
Wäre es möglich, den nachstehenden Code so zu modifizieren, daß bei Doppelklick auf einen Eintrag in Mappe1 der entsprechende Eintrag in einer bis dahin geschlossenen Mappe2 gesucht wird ?
Andere Lösungsvorschläge sind mir natürlich ebenso willkommen !
Für Eure Unterstützung vielen Dank !
Liebe Grüße
Wolfgang
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim varRet As Variant, vntMatch
Dim lngRow As Long
If Target.Column = 1 And Target "" And Target.Offset(, 1) "" Then
vntMatch = Target & "_" & Target.Offset(, 1)
Cancel = True
With Sheets("Tabelle2")
For lngRow = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(lngRow, 1) & "_" & .Cells(lngRow, 2) = vntMatch Then
varRet = lngRow
Exit For
End If
Next lngRow
End With
With frmClient
.Tag = IIf(IsNumeric(varRet), varRet, Sheets("Tabelle2").Cells(Rows.Count, 1) _
.End(xlUp).Row + 1)
.lblKunde = Target
If IsNumeric(varRet) Then
.txtCountry = Sheets("Tabelle2").Cells(varRet, 2).Text
.txtPLZ = Sheets("Tabelle2").Cells(varRet, 3).Text
.txtCity = Sheets("Tabelle2").Cells(varRet, 4).Text
.txtLimit = Sheets("Tabelle2").Cells(varRet, 5).Text
End If
.Show
End With
End If
End Sub