Bestimmten Wert in Spalte finden und löschen/abzie
Vale0711
Zwei Probleme habe ich noch mit meinen Makros.
Was mir noch fehlt ist, ich möchte dass das Makro (siehe Code unten) dasselbe was es im Blatt Objekt macht auch im Blatt Flächen macht. Es soll also auch in Spalte A den Text aus der Textbox suchen und die Zeile löschen wenn es den Text (z.B. 401-0020) gefunden hat. Hab schon ein bisschen rumprobiert, bekomme es aber nicht hin.
[code]
Private Sub CommandButton1_Click()
Dim objCell As Range, objRange As Range
Dim strFirstAddress As String
With Worksheets("Objekt")
Set objCell = .Columns(1).Find(What:=TextBox1.Text, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
strFirstAddress = objCell.Address
Do
If objRange Is Nothing Then
Set objRange = objCell
Else
Set objRange = Union(objRange, objCell)
End If
Set objCell = .Columns(1).FindNext(objCell)
Loop Until strFirstAddress = objCell.Address
If MsgBox(CStr(objRange.Count) & " Objekt wirklich löschen?", _
vbQuestion Or vbOKCancel, "Abfrage") = vbOK Then
objRange.EntireRow.Delete
End If
Else
MsgBox "Keinen Eintag gefunden", vbExclamation, "Hinweis"
End If
End With
End Sub
Das Zweite Problem habe ich bei der Funktion "Fläche löschen".
So sieht die UserForm aus [url]http://www.bilder-hochladen.net/files/i9at-1-c4ca-jpg.html[/url]
So sieht das Blatt "Flächen" aus, aus dem gelöscht werden soll. [url]http://www.bilder-hochladen.net/files/i9at-2-c81e-jpg.html[/url]
Das Feld ID-Objekt soll wieder in Spalte A (diesmal auf dem Blatt "Flächen") die ID-Objekt suchen. Wenn gefunden, sollen die Werte in den Feldern Büro/Praxis bis Sonstiges auf der LINKEN Seite der UserForm in der Zeile der gefundenen Objekt-ID den jeweiligen Wert in der der Tabelle (in den Spalten F bis L) um den in der TextBox reduzieren (=Fläche wird reduziert). z.B. user gibt ein:
ID Objekt 401-0020, Büro/Praxis 1000 und Wohnen 1000 - jetzt soll die Fläche des Objekts mit der ID 401-0020 in den Feldern Büro/Praxis und Wohnen jeweils um 1000 reduziert werden. Sprich in den Feldern F3 und H3.
Dasselbe für die Werte RECHTS in der UserForm für die Spalten M bis S.
Versteht ihr wie ich das meine?
Grüße und Danke für eure Hilfe