Thema Datum  Von Nutzer Rating
Antwort
28.10.2009 09:15:55 Samuel
NotSolved
Blau Aw:Kurzzeichen
 29.10.2009 14:03:50 Holger
NotSolved
29.10.2009 16:21:43 Samuel
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
29.10.2009 14:03:50		 Views:
895		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Kurzzeichen
Hallo Samuel,
ich vermute, du brauchst so etwas Ähliches für den commandButton deiner UserForm

a = Worksheets("Tabelle 2").Cells(Rows.Count, 1).End(xlUp).Row
for i = 1 to a
If ucase(Worksheets("Tabelle2").cells(i, 1)) = ucase(Textbox1) Then
Msgbox "Kürzel gibt es schon! Ändern!"
Exit sub
end if
next i
Worksheets("Tabelle 2").Cells(a + 1, 1) = Textbox1
Worksheets("Tabelle 2").Cells(a + 1, 2) = Textbox2
Worksheets("Tabelle 2").Cells(a + 1, 3) = Textbox3

Ungetestet!
Gruß
Holger

Samuel schrieb am 28.10.2009 09:15:55:

Hallo zusammen

Ich habe vor für meine Unternehmung eine Exceldatei mit VBA zu programmieren.
Einige Vorkenntnisse habe ich.

Es geht dabei um Kurzzeichen
Jeder Mitarbeiter hat ein Kurzzeichen
zum Beispiel ich habe BS
also Baumgartner Samuel.
es ist aber nicht immer so dass es Nachname Vorname ist.

Die Schwierigkeit dabei ist, dass es nicht 2 identische Kurzzeichen geben darf.
Ich habe also zwei Tabellen. in der einen starte ich die UserForm mit 3 Textboxen für Kurzzeichen, Name und Vorname und einer cmd für Ausführen. In der zweiten Tabelle gibt es drei Spalten für Kurzzeichen, Name und Vorname. Die wichtigste Spalte dabei ist natürlich Spalte A wo die Kurzzeichen stehen.

VBA soll also erst überprüfen ob das Kurzzeichen bereits besteht. Wenn ja soll es eine Meldung geben, man solle ein anderes verwenden. Wenn nicht sollen die Daten in die nächste leere Zeile von Tabelle 2 geschrieben werden.

Bitte helft mir!

Gruss

Sämi



Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.10.2009 09:15:55 Samuel
NotSolved
Blau Aw:Kurzzeichen
 29.10.2009 14:03:50 Holger
NotSolved
29.10.2009 16:21:43 Samuel
NotSolved