↓↓ 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! ❤
Пікірлер: 118
@scienzless7 жыл бұрын
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/
@MrPatti19855 жыл бұрын
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!
@Pornodietrich3 жыл бұрын
Nachdem ich den Grundlagenkurs zur Wiederholung durchgearbeitet hab, mache ich hier weiter. Weiterhin richtig gut erklärt, alles verständlich top!
@scienzless3 жыл бұрын
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.
@o0BluMenTopfErde0o4 жыл бұрын
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 :)
@scienzless4 жыл бұрын
Danke für Dein nettes Feedback! Dass weiß ich zu schätzen :) Beste Grüße
@dkaachen7 жыл бұрын
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!
@scienzless7 жыл бұрын
Danke für Dein Kommentar! :)
@rainerstahl6103 жыл бұрын
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-Ma3 жыл бұрын
Einfach super. Schön erklärt, angenehme Stimme. Viel gelernt.
@scienzless3 жыл бұрын
Ich danke Dir :)
@karlaltenberger50617 жыл бұрын
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
@scienzless7 жыл бұрын
Und ich danke Dir wieder für Dein motivierendes Kommentar Karl!
@martinj.36615 жыл бұрын
Alle Daumen hoch! Sehr angenehme Stimme, gut erklärt! Es wurde alle meine Fragen auf einmal beantwortet! WOW. Vielen Dank
@scienzless5 жыл бұрын
dass freut mich zu lesen! :) Danke für Dein Feedback!
@bernhardhoelzl51813 жыл бұрын
das Beste, das ich bisher im Netz gefunden habe. Vielen Dank!
@sculpture25825 жыл бұрын
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 "
@scienzless5 жыл бұрын
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
@mawellsandt2 жыл бұрын
also ich habe mit VBA erst angefangen aber ich muss sagen wirklich gut erklärt und man kommt schnell zum Ziel Danke dafür
@lifeshiftug34212 жыл бұрын
Einfach großartig. Für mich das Beste im Netz zu diesem Thema.
@2001Keyboarder6 жыл бұрын
Absolut klasse erklärt. Vielen Dank für deine Mühe.
@scienzless6 жыл бұрын
Danke für Dein nettes Feedback! :)
@matthiash.49763 жыл бұрын
Danke für die tollen Videos, mit deiner Hilfe kann ich einer kleinen Schlosserei eine umfangreiche Kalkulationshilfe in Excel bauen. DANKE DAFÜR
@scienzless3 жыл бұрын
Danke für das tolle Feedback! Weiterhin gutes gelingen :)
@bibsbastelstuebchen3 жыл бұрын
Klasse! Danke für die ausführliche Erklärung. Genau das, was ich gesucht habe. Daumen hoch!!
@scienzless3 жыл бұрын
ich danke Dir :)
@damirs6904 жыл бұрын
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
@thomasboehm18152 жыл бұрын
Ich finde Deine homepage auch echt klasse! sehr gut gemmacht, sogar mit pdfs, beeindruckend!
@sasavienne4 жыл бұрын
Deine Tutorials sind echt super 👌. Besser geht es nicht.. Ich lerne von Dir viel. Herzlichen Dank..🌟 🌟 🌟 🌟
@VideoStop245 жыл бұрын
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-uq3gt8yi3d6 жыл бұрын
Hallo Ich schaffe es bei meinem Mac nicht in Excel 2017 eine UserForm Schaltfläche zu erstellen? Können Sie helfen? LG
@adolfmodre60927 жыл бұрын
Super Erklärungen - Danke
@scienzless7 жыл бұрын
danke für Dein Kommentar! :) beste Grüße
@emildudenhofer90022 жыл бұрын
Hallo alles wunderbar erklärt nur leider ist das Video Folge 16 mit den Umwandlungen nicht mehr gekommen oder ich finde es nicht
@ingostoter54907 жыл бұрын
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
@shigechyioizumi15726 жыл бұрын
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
@shigechyioizumi15726 жыл бұрын
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.
@Aichauer2 ай бұрын
stimmt! und sindern heißt sondern und un heißt in! …wenn wir schon beim Erbsenzählen sind.🤗
@girkup4 жыл бұрын
super video danke dir
@markuslemcke3 жыл бұрын
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?
@scienzless3 жыл бұрын
Vielleicht hilft das Video weiter :) kzbin.info/www/bejne/ppyzYWSohMeiopY
@markuslemcke3 жыл бұрын
@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
@dirkteichmann3 жыл бұрын
Hallo Andre, wieder mal ein tolles Video. Aber ich finde leider das eingeblendete Video "Umwandlungsfunktionen" nicht in Deinem KZbin channel.
@paulboden22882 жыл бұрын
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.
@ingo59286 жыл бұрын
Spitzen Video, top erklärt, genau was ich gesucht habe. Gleich mal abonniert 🤗
@scienzless6 жыл бұрын
Danke für Dein nettes & motivierendes Feedback 👌 :)
@florianscheibel11572 жыл бұрын
Hallo, das Video war super Hilfreich! Könntest du die Datei zum Download zu Verfügung stellen? Vielen Dank!
@martinkaufmann40673 жыл бұрын
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"? ;-)
@scienzless3 жыл бұрын
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_shop4 ай бұрын
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?
@euankhbari69654 жыл бұрын
danke super !!! ich habe gerade damit begonnen ...
@DogzCAI-zo8bu4 ай бұрын
Hi. Also es geht, wenn ich Cancel Button drücke, aber danach kommt eine Fehlermeldung: Laufzeitfehler 424: Objekt erforderlich Warum ist das so?
@euankhbari69654 жыл бұрын
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
@ftsvtrampo6 жыл бұрын
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.
@yourieltsfriend5705 жыл бұрын
Du bist super cool, Mann!
@scienzless5 жыл бұрын
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.
@sch0ll14 жыл бұрын
Hi, wie kann ich denn der Variablen last mitteilen, dass sie sich nicht auf ActiveWorksheet sondern auf anderes Tabellenblatt beziehen soll? Grüße
@scienzless4 жыл бұрын
Moin :) kzbin.info/www/bejne/nXKopaVpqceBbsk in dem Video solltest Du Deine Antwort finden, Beste Grüße
@dominikpolanetzki61937 ай бұрын
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?
@ginobieringer98854 жыл бұрын
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
@saschadrechsler27723 жыл бұрын
Hi André Was mach ich den wenn in der Textbox Zahl nichts steht? Ich bekomm dann immer einen Fehler
@scienzless6 жыл бұрын
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é
@michaelschiessl842 жыл бұрын
kann ich auch angeben in welcher Zeile und Spalte die eingaben erscheinen sollen?
@marcomerkel67563 жыл бұрын
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_tinemaria2 жыл бұрын
Besteht auch die Möglichkeit, dass ich mit einem CommandButton das restliche Programm weiterlaufen lassen kann?
@markusbierkant73635 жыл бұрын
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-pp4mb3 жыл бұрын
Hallo, wie kann ich mit VBA einen Pfeil per checkbox ein- und ausblenden?
@harryschimmack96096 жыл бұрын
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.becker61193 жыл бұрын
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?
@carstenneubauer50374 жыл бұрын
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-ch1wx3 жыл бұрын
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
@FaltosoO7 жыл бұрын
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:)
@scienzless7 жыл бұрын
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
@michasprogrammierstunde2437 жыл бұрын
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
@ingostoter54905 жыл бұрын
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
@bedawittig4106 жыл бұрын
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..
@zackzackOL4 жыл бұрын
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
@scienzless4 жыл бұрын
Moin, bei " ActiveSheet" den Punkt weglassen :) beste Grüße
@danilp87573 жыл бұрын
egal ob suchfunktion oder eingabe es kommt dann immer 424 als fehlercode
@DesignerARC10 ай бұрын
Warum haben wir eigentlich bisher immer ein Modul benutzt? Was ist ein Modul?
@aminlar53586 жыл бұрын
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 :)
@BobSau7 жыл бұрын
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.75817 жыл бұрын
Hi, erstmal danke für die Coolen Videos. Ich hätte anstatt Begriff gern eine fortlaufende Zahl wie kann ich das umsetzen?
@report12105 жыл бұрын
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.
@falco10203012 жыл бұрын
Das Video mit den Umwandlungsfunktionen scheint es noch nicht zu geben kann es nicht finden.
@Lenny65Junior5 жыл бұрын
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.
@Lenny65Junior5 жыл бұрын
Ich habe es noch komplett neu gemacht.....nun geht es, wie es soll! Danke nochmals.
@scienzless5 жыл бұрын
Astrein! Danke für Dein Kommentar :)
@Flippy15657 жыл бұрын
was ist der unterschied zwischen private sub und nur sub?
@ltftod19746 жыл бұрын
was mus ich in den Text_begriffe als befele ein gebe
@cafer26995 жыл бұрын
Bei mir werden die Kommas in durch Striche angezeigt beim datum
@KassySpencer6 жыл бұрын
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
@scienzless6 жыл бұрын
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
@mrbrizitv81564 жыл бұрын
Wie mache ich das Hochgestellte Komma wie du es Betitelst
@Marc93M5 жыл бұрын
Wie würde ich es machen, dass Excel die Werte in vordefinierte Zellen kopiert? Kann mir da jemand helfen?
@BecksOfficialx6 жыл бұрын
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
@adilcan6787 жыл бұрын
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
@scienzless7 жыл бұрын
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
@adilcan6787 жыл бұрын
Vielen Dank für die schnelle Antwort, funktioniert super! Das Video steht mal direkt als nächstes an;) LG
@katek47156 жыл бұрын
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 :)
@katek47156 жыл бұрын
Die Frage hat sich geklärt. Man muss tatsächlich nahezu alles eingetragen haben in der ersten Zeile. Dann geht der Code.
@MrPatti19855 жыл бұрын
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!
@Twisterneon16 жыл бұрын
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 :*
@Twisterneon16 жыл бұрын
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 =)
@maxbertram87857 жыл бұрын
gutes Video ;) , an der einen oder anderen Stelle ging es ein wenig zu schnell für meinen Geschmack.
@scienzless7 жыл бұрын
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é
@maxbertram87857 жыл бұрын
Das war quasi mein Einstieg ;)
@scienzless7 жыл бұрын
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/
@felixirmler29527 жыл бұрын
Hilfe bei mir kommt der Fehler 438 . Objekt unterstützt diese Eigenschaft oder Methode nicht.. was muss ich jetzt machen??
@m4th4674 жыл бұрын
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