Ergebnis 1 bis 2 von 2

Thema: VBA !!!!!!!!! Daten in eine andere Tabelle eintragen .......

  1. #1
    Kraker23@
    Gast

    Standard VBA !!!!!!!!! Daten in eine andere Tabelle eintragen .......

    Brauche umbedingt eure Hilfe, komme einfach nicht weiter.

    ----------------------------------------------------------------------------------------
    Aufgabe:
    Jede erstellte Rechnung ist mit ihren relevanten Daten zu speichern, d.h. in einem weiteren Datenblatt sollen die Rechnungs-Nr., das Rechnungsdatum und di Kunden-Nr (bitte diese Reihenfolge einhalten! Daten ggf. formtieren) erfasst werden. Das Übertragen und Speichern der Daten soll durch eine Schaltfläche erfolgen.

    Selbstverständlich achten Sie darauf, dass eine Rechnung nicht doppelt erfasst wird. In diesem Fall machen Sie den Anwender durch eine Mittweilung (Msgbox) darauf aufmerksam.
    -----------------------------------------------------------------------------------------

    Das eintragen in eine andere Tabelle erfolgt bei mir leider nur in einer Zeile, obwohl ich eine DO-LOOP Schleife eingebaut habe. Naja vllt könnt Ihr mir ja helfen. Wenn ihr das mit der Msgbox auch hinkriegen würdet, währe ich euch sehr dankbar.

    DANKE schon mal im Voraus
    Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
    Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!

  2. #2
    HTML Newbie
    Registriert seit
    16.06.2006
    Beiträge
    3
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    Hier einen Lösungsvorschlag für die MsgBox

    Als erstes musst du Mitzählen wieviele Rechnungen übertragen worden sind

    Dim i as Integer Zähler1
    Dim i as Integer Zähler2
    Dim n as Integer Anzahl Rechnungen
    Dim Fehlerspeicher as Interger

    Fehlerspeicher = 0
    i = 0
    i1 = 1
    n = wurde bereits gezählt durch den übertrag
    Range("A2").Select Zelle in der die Erste Rechnungsnr. steht anwählen
    while i < n
    while i1 < n
    if ActiveCell.Offset(i, 0).value = ActiveCell.Offset(i1, o).value then
    fehlerspeicher = 1
    i1 = i1 + 1
    else
    i1 = i1 + 1
    End if
    wend
    i = i + 1
    wend
    if Fehlerspeicher = 1 then
    MsgBox (Es wurden Rechnungen mehrfach Aufgeführt)
    Else

    End If

Ähnliche Themen

  1. Tutorial -> Daten in Datenbank eintragen + Auslesen
    Von sibbiiii im Forum Script-Archiv
    Antworten: 16
    Letzter Beitrag: 25.11.2009, 23:34
  2. daten in eine mysql tabelle schreiben
    Von wessve im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 18
    Letzter Beitrag: 21.03.2007, 02:46
  3. MySQL Werte von Tabelle a in Tabelle b eintragen.
    Von Barret im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 0
    Letzter Beitrag: 08.02.2007, 11:42
  4. Wie kann ich eine Tabelle auf eine andere legen?
    Von Eva** im Forum HTML & CSS Forum
    Antworten: 9
    Letzter Beitrag: 07.07.2005, 16:49
  5. Daten in die DB eintragen?
    Von scout1979 im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 1
    Letzter Beitrag: 21.09.2004, 12:10

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •