Formular zum Updaten :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Formular zum Updaten

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

max_cavalera08
Newbie
Newbie

Anmeldedatum: 08.04.2008
Beiträge: 10

Verfasst am: 08.04.2008, 10:30

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 Laughing

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.

Datenblatt.xls

Beschreibung:

Download

Dateiname:

Datenblatt.xls

Dateigröße:

17.5 KB

Heruntergeladen:

28 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 08.04.2008, 12:20

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

max_cavalera08
Newbie
Newbie

Anmeldedatum: 08.04.2008
Beiträge: 10

Verfasst am: 08.04.2008, 13:09

Klasse! Hat super geklappt! Danke Dir

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 08.04.2008, 13:13

Hallo!

Dann musst du die Blätter entsprechend addressieren:

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

max_cavalera08
Newbie
Newbie

Anmeldedatum: 08.04.2008
Beiträge: 10

Verfasst am: 08.04.2008, 13:31

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

max_cavalera08
Newbie
Newbie

Anmeldedatum: 08.04.2008
Beiträge: 10

Verfasst am: 09.04.2008, 12:34

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

Datenblatt2.xls

Beschreibung:

Download

Dateiname:

Datenblatt2.xls

Dateigröße:

34.5 KB

Heruntergeladen:

24 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 09.04.2008, 12:47

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

max_cavalera08
Newbie
Newbie

Anmeldedatum: 08.04.2008
Beiträge: 10

Verfasst am: 09.04.2008, 12:59

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 Laughing

nochmal danke schön

max_cavalera08
Newbie
Newbie

Anmeldedatum: 08.04.2008
Beiträge: 10

Verfasst am: 10.04.2008, 08:35

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 10.04.2008, 10:19

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!"

max_cavalera08
Newbie
Newbie

Anmeldedatum: 08.04.2008
Beiträge: 10

Verfasst am: 10.07.2008, 12:39

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 11.07.2008, 10:38

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Falsche Schrift in geschütztem Formular	beakiddo	Microsoft Word Hilfe	1	03.11.2008, 14:29
	Kein Hyperlink bei gesichertem Formular?	lincoln	Microsoft Word Hilfe	0	03.11.2008, 12:52
	Mehrere Abragen in einem Formular?	cd_com	Microsoft Access Hilfe	1	28.10.2008, 22:15
	[Word2003] Formular mit Textfeldern e...	anachronist	Microsoft Word Hilfe	2	04.09.2008, 15:07
	Excel Formular Problem	Mercuryswift	Microsoft Excel Hilfe	0	04.09.2008, 09:57

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de