Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 111
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von Dogg vom 13.09.2017, 12:45 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Userform in Tabelle

 (68 Hits)

Guten Tag,

ich habe eine schnelle Frage: Ich habe mir eine ganz einfache Tabelle erstellt, in der ich lediglich eine Spalte "Datum" habe. Jetzt habe ich eine Userform erstellt mit einer TextBox mit dem Label "Datum" und einer Befehlsschaltfläche "Neuer Eintrag". Ich möchte lediglich, dass ich in die TextBox das Datum eintrage und wenn ich Enter oder "Neuer Eintrag" drücke, dann sollen die eingegebenen Daten untereinander stehen. Beispiel: Ich schreibe in die TextBox "14.10.2019", drücke Enter oder "Neuer Eintrag" --> "14.09.2019" steht in der Zelle A2 (A1 ist die Überschrift) Ich hoffe ihr könnt mir helfen, den Rest schaffe ich bestimmt alleine. :-D


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 13.09.2017, 13:26 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

ich gehe mal davon aus, dass die Daten aus der Userform in das aktive Blatt geschrieben werden. Hier der Code für deine Schaltfläche "Neuer Eintrag" (hier im Beispiel CommandButton1, ggf. anpassen):
Private Sub CommandButton1_Click()
Dim lngLetzte As Long

With ActiveSheet
'Hier wir die letzte Zeile der Spalte A ermittelt
 lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
 .Cells(lngLetzte + 1, 1) = TextBox1.Value
End With

'Userform schließen
Unload Me

End Sub

Die Nummer der Textbox musst du ggf. anpassen.
Die Übernahme funktioniert nur mit der Schaltfläche. Bei Enter verlässt du nur die Textbox.

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Mon Sep 25 00:38:08 2017