Spalte suchen, Zelle ermitteln, Wert ggf. eintrage
14.09.2018 20:45:20
Silvio
Ich versuche nun schon seit stunden ein problem zu lösen, normalerweise werde ich durch viel probieren fündig, aber pech gehabt.
es geht um folgendes:
Ich habe ein Userform, da stehen werte combo_bgrp und combo_mcnr (Es gibt ein Button mit MCNR erstellen)
gleichzeitig besteht ein Tabellenblatt, in der ersten zeile stehen alle baugruppen (bgrp), darunter jeweils die maschinennummern (mcnr)
Nun möchte ich gerne nach der baugruppe suchen, finde ich diese, möchte ich in der gefundenen spalte die Maschinennummer finden, finde ich sie nicht möchte ich in der letzten freien Zelle die Maschinennummer eintragen.
Ich habe es bisher geschafft, das die Maschinennummer in die letzten freie zelle geschrieben wird (mit .usedrange.rows.count) das problem hierbei besteht, dass dieser wert von den anderen spalten abhängig ist und ich keine leerzeilen brauchen kann.
Ich hoffe ich habe es halbwegs verständlich erklärt.
Danke im vorraus
Gruß Silvio
Private Sub mcnr_erstellen_Click()
Dim spalte As Long
Dim spaltemax As Long
Dim rngcell As Range
Dim Zeilemax
auswahl = "daten_" & Combo_mctyp
With Worksheets(auswahl)
spaltemax = .UsedRange.Columns.Count
Set rngcell = Range(Cells(1, 1), Cells(1, spaltemax)).Find(Combo_bgrp.Value, lookat:= _
xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngcell Is Nothing Then
'rngcell.Offset(.UsedRange.Rows.Count, 0).Value = Combo_mcnr.Value
rngcell.Offset(.Cells(Rows.Count, 0)).Value = Combo_mcnr.Value
'leider klappt Cells rows count nicht
Else
MsgBox "Keine Baugruppe vorhanden bei der eine Maschinennummer hinzugefügt _
werden kann"
End If
End With
End Sub