Office: Formular zum Updaten

Hallo Leute!

Ich brauche Hilfe von Euch Experten. Ich will ein Formular erzeugen, das die nächste freie Sachnummer angibt für ein neues Projekt. Ein Beispiel hab ich schnell gemacht und dabei angehängt. Finde ich schöner wenn das mit VBA erstellt wird aber leider weiß ich momentan gar nicht von VBA! Muss ich dann erstmal VBA lernen :lol: aber mir reicht das schon erstmal mit Excel aus.

Also unter Sachnummer H9 soll die nächste freie Sachnummer aus der Spalte A angegeben werden,wenn die Zelle in der Spalte B leer ist. Habe ich mit der WENN formel gemacht, aber was ich da gemacht habe gilt nur für eine Zelle. Wie mache ich, dass die Formel für die ganze Spalte gilt?

Und unter Beschreibung und Ausführer ( I9 bzw. J9 ) sollen Daten eingegeben werden. Wie mache ich, dass die eingegebene Daten in der Tabelle reingespiegelt werden und die Zelle wieder leer wird für das nächste projekt? Und wie vorher, das sollte auch für die ganze Spalte gelten.

Hoffentlich dass die Erklärung ausreichend ist und Ihr mir einigermaßen helfen könnt. Vielen Dank im Voraus.

 

Hallo!

Wenn du diesen Code einem Button "Übertrag" zuweist, dann müsste er eigentlich deine Wünsche erfüllen.

Code:

Private Sub CommandButton1_Click()
Range("B65536").End(xlUp).Offset(1, 0) = Range("I9")
Range("C65536").End(xlUp).Offset(1, 0) = Range("J9")
Range("H9:J9").ClearContents
Range("H9") = Range("B65536").End(xlUp).Offset(1, -1)
End Sub

 

Klasse! Hat super geklappt! Danke Dir

Und wie sieht den Code aus, wenn ich die Tabellen in verschiedenen Arbeitsblätter machen will?

 

Hallo!

Dann musst du die Blätter entsprechend addressieren:

Sheets("Quelle").Range("B65536").End(xlUp).Offset(1, 0) = Sheets("Ziel").Range("I9")

 

Jawohl! es klappt. danke dir für die Hilfe. das Forum ist einfach geil. hat mir richtig viel geholfen

 

Hallo nochmal

so jetzt hab ich ein bisschen weiter gemacht mit einem Button und ein Paar MsgBox. Das MsgBox sollte erscheinen, wenn die Beschreibung oder den Ausführer fehlt. Aber das Problem bei mir ist, wenn ich eine davon eingebe und den Button betätige, die Box erscheint aber das Input wird trotzdem in der Tabelle eingefügt. Das will ich eigentlich vermeiden. Nur wenn beide Felder ausgefüllt werden sollen die in die Tabelle. Kann jemand mir weiterhelfen bzw. korrigieren? Diesen Code benutze ich im Moment.

Code:

Private Sub CommandButton1_Click()
    
    Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(1, 0) = Sheets("Tabelle1").Range("I9")
    Sheets("Tabelle2").Range("C65536").End(xlUp).Offset(1, 0) = Sheets("Tabelle1").Range("J9")
            
    If Sheets("Tabelle1").Range("I9") = False Then
        MsgBox "Bitte Beschreibung eingeben!"
    ElseIf Sheets("Tabelle1").Range("J9") = False Then
        MsgBox "Bitte Ausführer eingeben!"
    Else
        MsgBox "Neue Sachnummer wurde erfolgreich bestätigt!"
    End If
    
    Do While Sheets("Tabelle1").Range("I9") <> ""
        Sheets("Tabelle1").Range("H9:J9").ClearContents
        Sheets("Tabelle1").Range("H9") = Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(1, -1)
    Loop
    
    Do While Sheets("Tabelle1").Range("J9") <> ""
        Sheets("Tabelle1").Range("H9:J9").ClearContents
        Sheets("Tabelle1").Range("H9") = Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(1, -1)
    Loop
            
End Sub

Bin auch nicht ganz sicher mit dem Code aber soweit funktioniert es (außer das Problem).Die Datei lege ich auch noch bei. Herzlichen Dank im Voraus

 

Hallo!

Die If-Abfrage muss natürlich VOR dem Übertrag erfolgen.
Außerdem machen die Do-Loop-Schleifen nicht wirklich Sinn, oder?

Code:

Private Sub CommandButton1_Click()
                
    If Sheets("Tabelle1").Range("I9") = False Then
        MsgBox "Bitte Beschreibung eingeben!"
        Exit Sub
    ElseIf Sheets("Tabelle1").Range("J9") = False Then
        MsgBox "Bitte Ausführer eingeben!"
        Exit Sub
    Else
        MsgBox "Neue Sachnummer wurde erfolgreich bestätigt!"
    End If
    Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(1, 0) = Sheets("Tabelle1").Range("I9")
    Sheets("Tabelle2").Range("C65536").End(xlUp).Offset(1, 0) = Sheets("Tabelle1").Range("J9")
    Sheets("Tabelle1").Range("H9:J9").ClearContents
    Sheets("Tabelle1").Range("H9") = Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(1, -1)
            
End Sub

 

ach so, so funktionert das. hat super geklappt, danke! naja, bin aber Anfänger. Hab alles ausprobiert ohne nachdenken, ob das Sinn macht oder nicht :lol: nochmal danke schön

 

Hallo nochmal schatzi

wie mache ich, dass die aktualisierte Sachnummer auch in dem MsgBox steht? So wie hier :
"Neue Sachnummer aktualisierte Sachnummer Fett wurde erfolgreich bestätigt!"

Danke erstmal

 

Hallo!

Fettschrift ist meines Wissens nach in einer MessageBox nicht möglich...
Aber das hier geht:

MsgBox "Neue Sachnummer " & Sheets("Tabelle1").Range("H9") & " wurde erfolgreich bestätigt!"

 

Hallo nochmal liebe Experte!

jetzt habe ein kleines Problem. Wie modifiziere ich diesen Code, damit die Information von einer berstimmen Zelle anfängt zu übertragen.

Code:

Sheets("Tabelle2").Range("C65536").End(xlUp).Offset(1, 0) = Sheets("Tabelle1").Range("J9")("J9")

z.B die Daten wird ab C50 eingetragen bis weiter unten und nicht zu überprüfen, ob davor schon was drin steht.

Höffentlich dass das einigermaßen verstehbar ist. Danke.

 

Hallo!

Ungetestet mit einer If-Abfrage:

If Sheets("Tabelle2").Range("C65536").End(xlUp).Offset(1, 0).Row < 50 Then
Sheets(Tabelle2").Range("C50") = Sheets("Tabelle1").Range("J9")
Else
Sheets("Tabelle2").Range("C65536").End(xlUp).Offset(1, 0) = Sheets("Tabelle1").Range("J9")
End If