EXCEL VBA - Userform erstellen #1 Textfelder und Befehlsschaltflächen

↓↓ Mein kostenloser EXCEL VBA Grundlagenkurs für Einsteiger ↓↓
Alle Videos & Codes - KOSTENLOS & OHNE ANMELDUNG: 💥 www.excel-vba-... 💥
Danke an Euch für den tollen Support und das motivierende Feedback! ❤

[@scienzless]

Dim last As Integer last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 Ansonsten findet ihr den gesamten Code auch auf: www.excel-vba-lernen.de/

[@MrPatti1985]

Hallo Scienzless! Dein Video hat mir schon sehr geholfen allerdings bräuchte ich da doch nochmal deine Hilfe!! Wäre nett wenn du mir da weiterhelfen könntest!

[@Pornodietrich]

Nachdem ich den Grundlagenkurs zur Wiederholung durchgearbeitet hab, mache ich hier weiter. Weiterhin richtig gut erklärt, alles verständlich top!

[@scienzless]

Danke für Dein Feedback :)

[@dermarsianer4563]

Klasse VBA Tutorials, lange nach einer solchen Qualität gesucht. Super erklärt, gut strukturiert. Alles voll auf den Punkt! Einfach unglaublich hilfreich, um den Einstieg in die vielen VBA-Themen zu finden. Vielen Dank.

[@o0BluMenTopfErde0o]

Wirklich Top ! Ich kommentiere wahrlich nicht oft unter Tut.-videos, aber deine Videos stechen aus der Masse wirklich heraus - bzgl. Deutlichkeit, Verständnis, Aufbau, Sichtbarkeit uvm. Danke dafür :)

[@scienzless]

Danke für Dein nettes Feedback! Dass weiß ich zu schätzen :) Beste Grüße

[@dkaachen]

Wunderbar dieser Workshop zum Thema VBA und der Userform. Ist für mich sehr nützlich und übersichtlicher um meine Tabellen mittels eines Formular zu bearbeiten. Freue mich schon auf das nächste Video!

[@scienzless]

Danke für Dein Kommentar! :)

[@rainerstahl610]

Hi, bin auf Deine Videos per Google-Suche gestoßen - und finde toll, wie Du erklärst! Genau in der Weise, wie es mir hilft: keine Edmund-Stoiber-Gedächtnis-Ähhs, stringent, ohne unnötige Erklärungen von offensichtlichen Dingen - aber Konzentration auf die wesentlichen Aspekte... Für mich absolut top!

[@Ju-Ko-Ma]

Einfach super. Schön erklärt, angenehme Stimme. Viel gelernt.

[@scienzless]

Ich danke Dir :)

[@karlaltenberger5061]

Wieder einmal alle Daumen hoch für dieses, wie auch all die anderen Tutorials. Wichtig hierbei sind auch die kleinen "5-Minuten Schritte", wo auf das Wesentliche eingegangen wird und man zum Schluss noch weiß, um was es ging. Danke nochmals an dieser Stelle für diese aufwendige Arbeit, um anderen Menschen zu helfen, Excel VBA besser erlernen zu können. LG Karl

[@scienzless]

Und ich danke Dir wieder für Dein motivierendes Kommentar Karl!

[@martinj.3661]

Alle Daumen hoch! Sehr angenehme Stimme, gut erklärt! Es wurde alle meine Fragen auf einmal beantwortet! WOW. Vielen Dank

[@scienzless]

dass freut mich zu lesen! :) Danke für Dein Feedback!

[@bernhardhoelzl5181]

das Beste, das ich bisher im Netz gefunden habe. Vielen Dank!

[@sculpture2582]

Ich muss echt ein mega LOB da lassen !!! Alles sehr ruhig und genau erklärt , und vor allem " verständlich " Bitte weiter so " Thumb-UP "

[@scienzless]

Vielen Dank für Dein Kommentar :) Beste Grüße!

[@SKYYDenni]

Hätte ich mal deinen Kanal her gefunden. Hab mal was gebraucht, das einen Text den man in eine Userform eingibt in einer anderen Tabelle sucht und dann die gesamte Zeile reinkopiert. Das wäre ja sowas von die lösung gewesen. Eingabe in die userform Find für den Text Copy (row) Alles Teil der Videos. Hammer

[@mawellsandt]

also ich habe mit VBA erst angefangen aber ich muss sagen wirklich gut erklärt und man kommt schnell zum Ziel Danke dafür

[@lifeshiftug3421]

Einfach großartig. Für mich das Beste im Netz zu diesem Thema.

[@2001Keyboarder]

Absolut klasse erklärt. Vielen Dank für deine Mühe.

[@scienzless]

Danke für Dein nettes Feedback! :)

[@matthiash.4976]

Danke für die tollen Videos, mit deiner Hilfe kann ich einer kleinen Schlosserei eine umfangreiche Kalkulationshilfe in Excel bauen. DANKE DAFÜR

[@scienzless]

Danke für das tolle Feedback! Weiterhin gutes gelingen :)

[@bibsbastelstuebchen]

Klasse! Danke für die ausführliche Erklärung. Genau das, was ich gesucht habe. Daumen hoch!!

[@scienzless]

ich danke Dir :)

[@damirs690]

Hey bei mir erscheint nirgends die Möglichkeit eine Userform einfügen zu können. Ich habe nur die Auswahl zwischen Modul und Klassenmodul. Was mache ich falsch ? lg

[@thomasboehm1815]

Ich finde Deine homepage auch echt klasse! sehr gut gemmacht, sogar mit pdfs, beeindruckend!

[@sasavienne]

Deine Tutorials sind echt super 👌. Besser geht es nicht.. Ich lerne von Dir viel. Herzlichen Dank..🌟 🌟 🌟 🌟

[@VideoStop24]

Wunderbar erklärt. Absolut Daumen hoch. Schade nur, das Microsoft VBA nicht weiterentwickelt. VBA war mal sehr gut und in den 90er Jahren Stand der Technik. Es kann zwar immer noch sehr hilfreich sein, hat aber in den letzten 25 Jahren total den Anschluss verloren. Äußerlich ist die Entwicklungsumgebung (mit Außnahme der Formulare von Access) absolut Stand 1995. Ich habe damals viel innerhalb Access in VGA programmiert und eben mal einen Dicken Wälzer (auch mit Abbildungen) von 1999 rausgekramt. Die Entwicklungsumgebung ist absolut stehen geblieben. Wie eingefroren. Selbst in den Optionen (in den Einstellungen), ist jedes Kontrollkästchen noch exakt da, wo es war.

[@manfredmeier1500]

Klasse Lern-Videos 👏🏻👏🏻👏🏻 Vielen Dank 🙏🏻✨✨

[@user-uq3gt8yi3d]

Hallo Ich schaffe es bei meinem Mac nicht in Excel 2017 eine UserForm Schaltfläche zu erstellen? Können Sie helfen? LG

[@adolfmodre6092]

Super Erklärungen - Danke

[@scienzless]

danke für Dein Kommentar! :) beste Grüße

[@emildudenhofer9002]

Hallo alles wunderbar erklärt nur leider ist das Video Folge 16 mit den Umwandlungen nicht mehr gekommen oder ich finde es nicht

[@ingostoter5490]

Hallo, die ganzen Video sind super. Ich versuche die erste Zeile in B9 bis K9 zu bekommen. Klappt irrgend wie nicht. Versuche eine Tabelle mit Userform zu errstellen: Benuzter-System-Station-Ware-Ausrichtung-Verkauf-Einkauf-Nachfrage-Lager-LS B9 C9 D9 E9 F9 G9 H9 I9 J9 K9 Wenn wenn du weist dann auch mit Login und auslogen und wie ich sehen kann, wer eingelogt ist bis bald hoffe ich

[@shigechyioizumi1572]

Danke erstmal für die ganzen Videos, die sind wirklich hilfreich. Bei dem Eintragen von Daten bin ich auf ein Problem gestoßen: Wenn der "Formular starten"-Button in Tabelle 1 ist, die Daten, die ich über das Userform eingebe, aber in einer zweiten Tabelle ausgegeben werden sollen. Mit "Worksheets("Tabelle2").Active" geht es leider nicht: > Eingaben übernehmen Sub Button_Uebernehmen_Click() Worksheets("Tabelle2").Active Dim last As Integer last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveSheet.Cells(last, 1).Value = meinFormular.TextBox1.Value End Sub < Vielleicht finde ich zwischenzeitlich schon die Lösung wo anders, aber evtl. ist es ja auch für andere interessant. Grüße

[@shigechyioizumi1572]

Unverhofft kommt oft. "Sheets("Tabelle2").Activate" statt "Worksheets("Tabelle2").Active" für alle, die es interessiert: > 'Eingaben übernehmen Private Sub Button_Uebernehmen_Click() Sheets("Tabelle2").Activate Dim last As Integer last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveSheet.Cells(last, 1).Value = meinFormular.TextBox1.Value End Sub

[@Aichauer]

Einträge stehen nicht in den „Schaltflächen“, sindern un den Textfeldern.

[@Aichauer]

stimmt! und sindern heißt sondern und un heißt in! …wenn wir schon beim Erbsenzählen sind.🤗

[@girkup]

super video danke dir

[@markuslemcke]

Hallo, SUPER erklärt, hat alles Funktioniert! Ich möchte in meinem Formular einen Schalter "Vor" und "Zurück" mit dem ich vom Formular aus durch die Exceltabelle wandern kann. Können Sie mir erklären, wie das geht?

[@scienzless]

Vielleicht hilft das Video weiter :) kzbin.info/www/bejne/ppyzYWSohMeiopY

[@markuslemcke]

​ @ANDRÉ NAS - EXCEL VBA & POWERPOINT Nein, das hier habe ich gesucht: Private Sub btnNaechsteAdresse_Click() ActiveCell.Offset(1, 0).Select End Sub Private Sub btnVorherigeAdresse_Click() If ActiveCell.Row > 3 Then ActiveCell.Offset(-1, 0).Select End If

[@dirkteichmann]

Hallo Andre, wieder mal ein tolles Video. Aber ich finde leider das eingeblendete Video "Umwandlungsfunktionen" nicht in Deinem KZbin channel.

[@paulboden2288]

Hallo, wieder mal ein super anschauliches Video. Zwei Fragen hätte ich. 1. Wie müsste der Code lauten um die Userform nach dem eintragen automatisch schließen zu lassen? 2. Ist es möglich einen Eintrag aus der Userform noch in weitere Registerkarten in der Datei mit hinzuzufügen? Ich danke schon mal im Voraus.

[@ingo5928]

Spitzen Video, top erklärt, genau was ich gesucht habe. Gleich mal abonniert 🤗

[@scienzless]

Danke für Dein nettes & motivierendes Feedback 👌 :)

[@florianscheibel1157]

Hallo, das Video war super Hilfreich! Könntest du die Datei zum Download zu Verfügung stellen? Vielen Dank!

[@martinkaufmann4067]

Das Video ist zwar schon etwas älter, es hilft mir aber sehr, meine ersten Userforms zu schreiben. Nur eins habe ich nicht verstanden: "Gebe einen Begriff ein". Ist damit gemeint: "Gib einen Begriff ein"? ;-)

[@scienzless]

da gib ich mir besonders viel mühe :D

[@chrii9840]

Hallo André, wie trage ich die Codes ein, wenn ich explizit ein leeres Feld z.B. in Zelle B15 angeben möchte? Danke und Grüße

[@Media_shop]

Jetzt mal eine Frage, hab das neuste vom Neusten. Neuer MacBook, neuste Version was Excel angeht. Bei mir gibt es aber kein UserForm. Weder kann ich das anklicken noch ist eine Toolbox vorhanden. Wie kann das sein?

[@euankhbari6965]

danke super !!! ich habe gerade damit begonnen ...

[@DogzCAI-zo8bu]

Hi. Also es geht, wenn ich Cancel Button drücke, aber danach kommt eine Fehlermeldung: Laufzeitfehler 424: Objekt erforderlich Warum ist das so?

[@euankhbari6965]

Danke super erklärt. Ich habe eine frage ,warum kann ich in mein Excel nur Text_Name auswählen ? kann kein Text_zahl auswählen, oder andere text_begriff.... etc. danke

[@ftsvtrampo]

Hallo, Danke für die super Erklärung. Frage hätte ich trotzdem. Wie ich kann ich einen bestimmten Text oder Zahl in ein anderes Tabellenblatt und bestimmte Zelle zuweisen? Danke schon mal für die Antwort.

[@yourieltsfriend570]

Du bist super cool, Mann!

[@scienzless]

Vielen Dank für Dein Kommentar :)

[@j.s.9639]

Eine Frage: kann man die Texboxen auch irgendwie als Array übergeben? In meiner Userform sind 21 Boxen. Danke.

[@sch0ll1]

Hi, wie kann ich denn der Variablen last mitteilen, dass sie sich nicht auf ActiveWorksheet sondern auf anderes Tabellenblatt beziehen soll? Grüße

[@scienzless]

Moin :) kzbin.info/www/bejne/nXKopaVpqceBbsk in dem Video solltest Du Deine Antwort finden, Beste Grüße

[@dominikpolanetzki6193]

Ich kenne mich mit User Forms nicht aus aber ich habe einen funktionierenden komplexen VBA Code erstellt. Nun aber soll ich aber Funktionen einbauen, die nur mit einer User Form realisierbar sind. Kann man die UserForm einfach in dem Code implementieren oder müsste man den von Grund auf anders gestalten?

[@ginobieringer9885]

Hallöchen, bin Neuling auf dem Gebiet und verfolge interessiert den Blog. Wirklich klasse! Ich habe eine Tabelle erstellt und mit einem Makro bestimmte Spalten ausgeblendet und einem anderen Makro alle wieder eingeblendet. Ich habe das Tabellenblatt aber geschützt und möchte, dass das Makro auch in dem geschützten Zustand geht. Wie bekomme ich das hin und in welchen Bereich muss ich was eintragen? Im VBA Bereich unter Tabelle oder Modul? Danke für Eure Hilfe. LG

[@saschadrechsler2772]

Hi André Was mach ich den wenn in der Textbox Zahl nichts steht? Ich bekomm dann immer einen Fehler

[@scienzless]

Eine anschauliche Übersicht aller Videos dieser Videoreihe findest du unter: ► www.excel-vba-lernen.de/ Dort habe ich auch alle Befehle und Beispielcodes aus den Videos nochmals rausgeschrieben, sodass Du auf einen Blick alle wichtigen Informationen hast und nicht in den verschiedenen Videos an die jeweilige Stelle spulen musst. Viel Spaß beim Lernen! André

[@michaelschiessl84]

kann ich auch angeben in welcher Zeile und Spalte die eingaben erscheinen sollen?

[@marcomerkel6756]

Echt Klasse und Gut Erklärt :) Aber eine Frage habe ich da aber. Wenn ich mehrer Arbeitsmappen habe wie kann ich das Angeben das er er die Daten auch wirklich nur in diese Mappe schreibt.

[@c_tinemaria]

Besteht auch die Möglichkeit, dass ich mit einem CommandButton das restliche Programm weiterlaufen lassen kann?

[@markusbierkant7363]

Super Beitrag echt Klasse erklärt. Kurze Frage was für ein Code muss ich schreiben wenn ich nach der Übernahmen in die Tabelle das Eingabefenster wieder leer haben will um den nächsten Eintrag zu beginnen?

[@GF-pp4mb]

Hallo, wie kann ich mit VBA einen Pfeil per checkbox ein- und ausblenden?

[@harryschimmack9609]

Wie hier ja auch schon von vielen geschrieben wurde finde ich diesen Kanal sehr informativ vor allem für Anfänger. Ich möchte mich auch mit Excel VBA beschäftigen und das Thema Userform finde ich sehr gelungen. Leider habe ich ein kleines Problen (was unter Umständen keines ist) und zwar mit der Anzeige das Visual Basic-Editor. In diesem bekomme ich eine unvollständige Anzeige. Es werden zB. keine Eigenschaften angezeigt. Weiter fehlt bei mir im Editor die Datei; Bearbeiten; Ansicht; Einfügen usw, genau genommen kann ich hier nichts auswählen. Ich habe das Office 365 auf einem Mac. Kannst Du mir hier eventuell weiterhelfen, vermutlich ist es nur eine fehlerhafte Einstellung das ich hier nichts angezeigt bekomme. Mein Dank im voraus. Harry

[@d.becker6119]

Hallo Andre, ich möchte aus einer UserForm über eine Listbox eine darin ausgewählte Tabelle öffnen. Finde leider selber keine Lösung. Kannst du mir einen Tipp geben?

[@carstenneubauer5037]

Hallo. Danke für das Super Video. Ich habe eine Frage. Bei uns ist es nicht erlaubt Makros auszuführen. Gibt es eine andere Möglichkeit die eingabe zu starten.

[@Ivan-ch1wx]

Tolles Video!!! Wie lautet nun der Befehl, wenn ich mehrere Seiten in einem Dokument habe, und er in diesem Fall nicht weiß, welche Tabelle zu befüllen ist? LG

[@FaltosoO]

VIelen Dank für deine Videos! Sind extrem nützlich und hilfreich. Ich habe ein folgendes Problem und komm einfach nicht drau wie ich es lösen kann. Ich habe eine Tabelle von Excel auf Word übertragen. Nun möchte ich wenn in dieser Tabelle in der bestimmten zelle eine bestimmte zahl steht ein bild in diese Zelle eingefügt wird. (mittels If und For schleife). --> Wie kann ich die zelle anvisieren von der Tabelle in word? -->Wie kann ich das bild einfügen? ich hab schon folgendes versucht mit folgenden befehlen. ActiveDocument.Tables(1).Cell(1, 1) #wieso steht bei Tables (1)? wie weiss ich welche nummer mein table hat oder welchen namen? Bild einfügen: ActiveSheet.Pictures.Insert("C:\Dateipfad...").Select ? Wäre cool wenn du noch ein Tutorial machen könntest wie man Word und Excel Dateien verbindet bzw. Tabellen und Diagramme synchronisiert:)

[@scienzless]

Danke für dein Lob und die Anregung Excel mit Word zu verknüpfen. Ist sicherlich für viele Zuschauer interessant. Jedoch muss ich mich da selbst noch einarbeiten, da ich das bisher noch nicht gemacht habe. Beste Grüße

[@michasprogrammierstunde243]

Versuche es mal wie folgt. Vorher den Verweis auf die Word-Bibliothek unter Extras setzen. Das Word-Dokument muss dabei geöffnet sein. Dim w As Word.Application Dim zeile As Word.Row Dim wert As String Dim zielZeile As Integer Dim ws As Worksheet Set w = GetObject(, "Word.Application") zielZeile = 1 For Each zeile In w.ActiveDocument.Tables(1).Rows wert = zeile.Cells(1).Range.Text If Len(wert) > 2 Then wert = Left(wert, Len(wert) - 2) End If If wert = "1" Then zeile.Cells(2).Range.CopyAsPicture ActiveSheet.Cells(zielZeile, 1).Select ActiveSheet.Paste With ActiveSheet.Shapes(ActiveSheet.Shapes.Count) .LockAspectRatio = msoFalse .Left = ActiveCell.Left .Top = ActiveCell.Top .Height = ActiveCell.Height .Width = ActiveCell.Width End With zielZeile = zielZeile + 1 End If Next Kopiere über die Zwischenablage, das ist besser als über das Dateisystem. Vielleicht hilft das weiter. Beste Grüße

[@ingostoter5490]

Hallo, kannst du mir zeigen wie ich über die ComboBox eine Abhänigkeit machen kann??? Tabelle 1 soll Account rein und in Tabelle 2 die jeweiligen Charaktere mit den ID´s zu den Accounts

[@bedawittig410]

Danke für das super Video!Wie kann ich mit der Userform eine "intelligente Tabelle" ansprechen?Ich würde gerne in diese dynamische Tabelle mithilfe der Eingabemaske eine neue Zeile einfügen, weiß aber nicht wie ich das umsetzen kann..

[@zackzackOL]

Hi was hab ich falsche gmacht? Bekomme Fehler424 bei dem Part, wo die Daten übertragen werden Dim last As Integer last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 Active.Sheet.Cells(last, 1).Value = meinFormular.Text_Datum.Value Active.Sheet.Cells(last, 2).Value = meinFormular.Text_Begriff.Value Active.Sheet.Cells(last, 3).Value = meinFormular.Text_Zahl.Value

[@scienzless]

Moin, bei " ActiveSheet" den Punkt weglassen :) beste Grüße

[@danilp8757]

egal ob suchfunktion oder eingabe es kommt dann immer 424 als fehlercode

[@DesignerARC]

Warum haben wir eigentlich bisher immer ein Modul benutzt? Was ist ein Modul?

[@aminlar5358]

Hi ich möchte werte eingeben die meine Variablen in dem Makro programm ersetzten und nicht auf der Tabelle. Gleichzeitig brauche ich ein Knopf mit hinterlegte Standard werte die ich feststelle. Auf jede hilfe bin ich dankbar :)

[@BobSau]

Moin danke für deine Videos, Hab ne menge gelehrnt. Hab da ein Problem hab eine Liste in die ich neue Daten eintragen möchte. Das Problem ist das es sich in der Liste um Hyperlinks handelt. Wenn ich jetzt Daten mit der userform einfügen will überschreibt er die Links/ den ersten einfach. Sprich Vorhandener link wird durch neuen wert überschriben.

[@gkacarlie1871]

Nun fehlt mir das ganze in gedruckter Form / Transcripte zum aufbringen meiner Randnotitzen.

[@danielk.7581]

Hi, erstmal danke für die Coolen Videos. Ich hätte anstatt Begriff gern eine fortlaufende Zahl wie kann ich das umsetzen?

[@report1210]

Ich habe einen Rechner erstellt. Läuft ohne Probleme auf meinen Computern. Aber wenn ich es auf anderen ausführen will kommt immer die Meldung Fehler 13. Kann aber den fehler nicht finden. Auch Videos dazu konnten nicht helfen. Hat einer eine Idee und kann mir Helfen. Ich will es auf der Arbeit nutzen.

[@falco1020301]

Das Video mit den Umwandlungsfunktionen scheint es noch nicht zu geben kann es nicht finden.

[@Lenny65Junior]

Super Video! Habe mir auch teilweise eingebildet, es verstanden zu haben. In der Praxis sieht es so aus, dass mein erster Eintrag immer in der letzten Zeile landet. Ich finde den Fehler leider nicht.

[@Lenny65Junior]

Ich habe es noch komplett neu gemacht.....nun geht es, wie es soll! Danke nochmals.

[@scienzless]

Astrein! Danke für Dein Kommentar :)

[@Flippy1565]

was ist der unterschied zwischen private sub und nur sub?

[@ltftod1974]

was mus ich in den Text_begriffe als befele ein gebe

[@cafer2699]

Bei mir werden die Kommas in durch Striche angezeigt beim datum

[@KassySpencer]

Alles ganz schön und gut und auch wunderbar erklärt, aber ich verstehe eine Sache nicht ... Wo ist das Beispiel schneller, als es einfach gleich in eine Tabelle zu schreiben? Schreiben muss man es ja dennoch selbst O.o

[@scienzless]

danke für Deine Nachricht :)Du hast natürlich recht, dass man die Informationen auch direkt in die Tabelle eintragen kann.In diesem Video werden ja nur die ersten Schritte für ein umfangreicheres Programm gezeigt.Eine Möglichkeit, wie ein fertiges Projekt aussehen kann & dem Anwender das Leben erleichtert findest Du in diesem Video :)kzbin.info/www/bejne/gZaZaWCugKh2gNkBeste Grüße

[@mrbrizitv8156]

Wie mache ich das Hochgestellte Komma wie du es Betitelst

[@Marc93M]

Wie würde ich es machen, dass Excel die Werte in vordefinierte Zellen kopiert? Kann mir da jemand helfen?

[@BecksOfficialx]

Hi,vielen Dank für das Video. Hat sehr geholfen, Like hab ich dagelassen.Allerdings funktioniert's bei mir nicht. Wenn ich etwas in mein Eingabefeld eingegeben habe und die Daten dann speichern möchte, kommt die Fehlermeldung: "Fehler beim Kompilieren: Ungültiger Bezeichner" und er makiert mir die erste ZeilePrivate Sub speichern_Click()'Einträge übernehmenDim last As Integerlast = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1ActiveSheet.Cells(last, 1).Value = NeuerKontakt.Firma.Value ActiveSheet.Cells(last, 2).Value = NeuerKontakt.Name.Value ActiveSheet.Cells(last, 3).Value = NeuerKontakt.Vorname.Value ActiveSheet.Cells(last, 4).Value = NeuerKontakt.EMail.Value ActiveSheet.Cells(last, 5).Value = NeuerKontakt.Position.Value ActiveSheet.Cells(last, 6).Value = NeuerKontakt.Telefon1.Value ActiveSheet.Cells(last, 7).Value = NeuerKontakt.Telefon2.Value ActiveSheet.Cells(last, 8).Value = NeuerKontakt.Mobil.Value ActiveSheet.Cells(last, 9).Value = NeuerKontakt.Fax.Value ActiveSheet.Cells(last, 10).Value = NeuerKontakt.PLZ.Value ActiveSheet.Cells(last, 11).Value = NeuerKontakt.Ort.Value ActiveSheet.Cells(last, 12).Value = NeuerKontakt.Adresse.Value ActiveSheet.Cells(last, 13).Value = NeuerKontakt.Website.Value ActiveSheet.Cells(last, 14).Value = NeuerKontakt.Notizen.Value End SubZur Erklärung: Ich versuche mi meine eigene Kontaktdatenbank zusammenzubasteln.Kannst du mir helfen?GrüßeBecks

[@adilcan678]

Super Videos, passen wie gegossen für meine Arbeit grade! Ich hätte eine Simple Frage (habe von Programmieren leider kaum bis keine Ahnung): Statt die Textfelder in die nächste freie Reihe einzufügen würde ich gerne eine bestimmt Zelle aus Excel ansprechen, kannst du mir vielleicht dazu den Code kommentieren? LG

[@scienzless]

Danke für dein Feedback :) Wenn ich Dein Problem richtig verstanden habe, kannst du einfach die "last" Variable durch eine konkrete Zeile ersetzen Bspw: ActiveSheet.Cells(4,5).Value = meinFormular.Text_Datum.Value Ansonsten habe ich hier noch ein ausführlicheres Video dazu gemacht, wie man Zellen anspricht :) kzbin.info/www/bejne/eGqqh2mHftagl8U Beste Grüße

[@adilcan678]

Vielen Dank für die schnelle Antwort, funktioniert super! Das Video steht mal direkt als nächstes an;) LG

[@katek4715]

Moin, ich habe leider ein Problem. Wenn ich deinen Code benutze, womit man immer die letzte Zeile anspricht, überschreibt er lediglich die erste Zeile. Kannst du mir da vielleicht weiterhelfen? Danke :)

[@katek4715]

Die Frage hat sich geklärt. Man muss tatsächlich nahezu alles eingetragen haben in der ersten Zeile. Dann geht der Code.

[@MrPatti1985]

Hallo Scienzless! Dein Video hat mir schon sehr geholfen allerdings bräuchte ich da doch nochmal deine Hilfe!! Wäre nett wenn du mir da weiterhelfen könntest!

[@Twisterneon1]

Hey deine Videos sind Hammer und Helfen total. Ich finde das Super was du machst. Nur bei diesem video klappt das gerade nicht so wie du es gemacht hast, ich beis mir schon 9 stunden die zähne aus =(. Wenn ich den befehl starte kommt der Debug Modus und markiert mir die Last ziele last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 der Witz ist aber wenn ich einfach f5 drücke macht er brav was er soll. wie kann ich das den schreiben das es ohne f5 drücken funktioniert? der ganze code ist Private Sub btnÜbernehmen_Click() 'Einträge der Schaltflächen in Tabelle übernehmen Sheets("KundenStamm").Activate Dim last As Integer last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveSheet.Cells(last, 1).Value = KundenAnlegen.TextDatum.Value ActiveSheet.Cells(last, 2).Value = KundenAnlegen.TextVorname.Value ActiveSheet.Cells(last, 3).Value = KundenAnlegen.TextNachname.Value ActiveSheet.Cells(last, 4).Value = KundenAnlegen.TextStraße.Value ActiveSheet.Cells(last, 5).Value = KundenAnlegen.TextNr.Value ActiveSheet.Cells(last, 7).Value = KundenAnlegen.TextLand.Value ActiveSheet.Cells(last, 8).Value = KundenAnlegen.TextPLZ.Value ActiveSheet.Cells(last, 9).Value = KundenAnlegen.TextOrt.Value End Sub Ich danke jedem der mir irgendwie helfen kann :*

[@Twisterneon1]

Neuer Tag neues Glück. Ich hatte den Code nicht mehr hab ihn hier aus dem Kommentar rauskopiert und er funktioniert auf Anhieb xD keine Lahnung warum =)

[@maxbertram8785]

gutes Video ;) , an der einen oder anderen Stelle ging es ein wenig zu schnell für meinen Geschmack.

[@scienzless]

Freut mich zu hören, dass es Dir gefällt :)! Eine kurze Frage hätte ich, weil du angemerkt hast, dass das Tempo teilweise zu schnell war: Hast Du vorher schon Videos aus der Reihe "Die wichtigsten Befehle" gesehen oder bist Du mit diesem Video eingestiegen? Beste Grüße André

[@maxbertram8785]

Das war quasi mein Einstieg ;)

[@scienzless]

alles klar :) viele Befehle aus der Folge kamen bereits in den Grundlagenvideos vor - deswegen ist es an manchen Stellen wahrscheinlich zu schnell. Schau dir gerne mal die anderen Videoreihen an www.scienzless.de/excel-vba/

[@felixirmler2952]

Hilfe bei mir kommt der Fehler 438 . Objekt unterstützt diese Eigenschaft oder Methode nicht.. was muss ich jetzt machen??

[@m4th467]

Hey super Video! ich habe nur eine frage. Bei mir überschreibt er andauernd die Zeilen und fügt keine neue hinzu Sieht hier jemand vielleicht meinen Fehler? Private Sub Button_Cancle_Click() 'Eingabefenster schließen Unload UserForm1 End Sub Private Sub Button_Take_Click() 'Eingabefenster Erstelle Ticket Dim last As Integer last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveSheet.Cells(last, 13).Value = UserForm1.Text_MA.Value ActiveSheet.Cells(last, 3).Value = UserForm1.Text_Dongle.Value ActiveSheet.Cells(last, 7).Value = UserForm1.Text_Kunde.Value ActiveSheet.Cells(last, 8).Value = UserForm1.Text_Ansprechpartner.Value ActiveSheet.Cells(last, 9).Value = UserForm1.Text_Tel.Value ActiveSheet.Cells(last, 16).Value = UserForm1.Text_Themaik.Value ActiveSheet.Cells(last, 4).Value = UserForm1.Text_Datum.Value ActiveSheet.Cells(last, 12).Value = UserForm1.Text_Prio.Value ActiveSheet.Cells(last, 17).Value = UserForm1.Text_Fehl.Value Unload UserForm1 End Sub Private Sub UserForm_Initialize() 'Eintrag für die Schaltflächen UserForm1.Text_Datum.Value = Date End Sub