Office: (Office 2016) Spalte unter bestimmter Bedingung überschreiben

Guten Tag zusammen,

ich habe hier schon oft Hilfe gefunden und hoffe nun wieder darauf.

Ich habe eine Liste die mit einer Userform ausgefüllt wird, soweit so gut, klappt auch alles, die Spalten bekommen individuelle Nummern als erste Spalte und sortieren sich danach.
jetzt möchte ich aber, dass wenn ich eine Nummer erneut eintrage, die vorhandene Zeile mit der Nummer quasi aktualisiert wird, sprich dass ich diese zeile nochmal ansprechen kann.
z.B.
2 xxxxx
7 xxxxx
3 xxxxx
9 xxxxx

Jetzt möchte ich z.b. 3 ändern und gib dann wieder die 3 ein und den neuen Text yyyy

2 xxxx
7 xxxx
3 yyyy
9 xxxx

Hat da jemand ne ahnung wie ich das realisieren kann?

:)

 

Hi,

das geht nach folgendem Prinzip:

Code:

 

Hallo Beverly,

ist es möglich das zu verallgemeinern?
Habe es verschachtelt in einer UserForm.
Mein Code funktioniert genau wie ich es haben will, aber in Zelle B311 wird eine Zahl immer hochgezählt die augegeben werden soll, ist grundsätzlich gewollt, aber ich möchte jetzt noch die Möglichkeit haben, dass wenn ich nocheinmal z.b. die Zahl 3 anspreche, alles dazu überschrieben wird, weil bisher schreibt es das ja immer drunter, was auch korrekt ist, eben nur nicht beim ändern. Und die stetige Änderbarkeit ist eben total wichtig für meinen Fall.

Code:

Private Sub TakeButton2_Click()
'Eingaben der Schaltfläche übernehmen
Dim last As Long
Dim intSpalte As Integer
Dim x As Integer
Dim rngZelle As Range
'MeilensteinNr. + 1
For x = 1 To 100
With Sheets("VVP-Tool").Range("B311")
.Value = .Value + 1
End With
With ThisWorkbook.Worksheets("VVP-Tool")
' berechnen der richtigen Spalte auf neue Abstände angepasst
intSpalte = Phase * 8 - 4
last = Worksheets("VVP-Tool").Cells(Rows.Count, intSpalte).End(xlUp).Row + 1
.Cells(last, intSpalte).Value = TextNr.Value
.Cells(last, intSpalte + 1).Value = TextTitel.Value
.Cells(last, intSpalte + 2).Value = TextDatum.Value
.Cells(last, intSpalte + 3).Value = TextNutzer.Value
.Cells(last, intSpalte + 4).Value = TextAllgemein.Value
.Cells(last, intSpalte + 5).Value = TextAktivitäten.Value
.Cells(last, intSpalte + 6).Value = TextLink.Value
Set rngZelle = Columns(1).Find(TextNr.Value, lookat:=xlWhole) '

 

Hi,

verstehe ich das richtig, du willst 2 Möglichkeiten haben:

1. wenn Inhalt von TextNr gefunden wird, dann Änderung in der Nachbarspalte; B311 bleibt unverändert

2. wenn Inhalt von TextNr nicht gefunden wird, dann Daten in die erste freie Zeile übertragen; B311 wird um 1 hochgezählt

Fragen:
- wozu benötigst du die For-Schleife? Damit werden doch 100mal dieselben Werte untereinander geschrieben wenn ich das richtig sehe und der Inhalt von B311 um 100 erhöht, weil vom Ausgangswert 100mal 1 addiert wird.
- was macht diese Zeile intSpalte = Phase * 8 - 4? Der Variable "Phase" ist doch kein Wert zugewiesen bzw. (wenn es sich um eine globale Variable handelt der in einer anderen Prozedur ein Wert zugewiesen wird) wird der Wert in diesem Code hier nicht verändert - wozu steht die Zeile dann innerhalb der Schleife?

 

Hallo Beverly, habe dir meine Datei mal angehängt,
vielleicht verstehst du jetzt was ich meine.
meine liste ist quasi mit verschiedenen nummern ausgefüllt, sobald ich jetzt eine nummer auswähle in meiner Userform, die bereits vorhanden ist, soll die ganze zeile in der die nummer bereits ist überschrieben werden.
Wenn eine nummer gewählt wird, die noch nicht genutzt wurde soll es darunter

 

Hi,

also genau der Ablauf wie ich in meinem Beitrag beschrieben habe...

Code:

 

Liebe Beverly,

vielen Dank funktioniert einwandfrei