Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

UserForm Fomular überträgt Daten nicht richtig in Tabelle.

Frage Microsoft Microsoft Office

Mitglied: DerParte

DerParte (Level 1) - Jetzt verbinden

29.11.2007, aktualisiert 30.11.2007, 6844 Aufrufe, 3 Kommentare

Hallo zusammen,

ich möchte in Excel mittels Makros aus einem UserForm Formular Daten in ein Tabellenblatt übertragen. Es funktioniert auch fast.
Excel/VBA schreibt jedoch immer nur den letzten Wert in alle Zellen anstatt die verschiedenen Werte in die jeweilige Zelle.

Quelltext sieht so aus:

Private Sub CmdB_MitgliedAnlegen_Click()
Dim lastrow, i As Integer
Worksheets("Vereinsmitglieder").Activate
' Letzte Zeile suchen
lastrow = [a65536].End(xlUp).Row + 1
' Daten aus der Mitglied_Anlegen übertragen
For i = 1 To 8
Cells(lastrow, i) = Me.TB_Mitgliedsnummer.Value
Cells(lastrow, i) = Me.TB_Name.Value
Cells(lastrow, i) = Me.TB_Straße.Value
Cells(lastrow, i) = Me.TB_PLZ.Value
Cells(lastrow, i) = Me.TB_Ort.Value
Cells(lastrow, i) = Me.TB_DatumAnmeldung.Value
Cells(lastrow, i) = Me.TB_Kaution.Value
Cells(lastrow, i) = Me.TB_DatumBeitrag.Value
Next i
' Datenfelder löschen
With Me
.TB_Mitgliedsnummer.Value = ""
.TB_Name.Value = ""
.TB_Straße.Value = ""
.TB_PLZ.Value = ""
.TB_Ort.Value = ""
.TB_DatumAnmeldung.Value = ""
.TB_Kaution.Value = ""
.TB_DatumBeitrag.Value = ""
End With
End Sub
Mitglied: wakko
29.11.2007 um 11:54 Uhr
Moin,
du schreibst ja auch immerm in die gleiche Zelle ;)
01.
Cells(lastrow, i) = Me.TB_Mitgliedsnummer.Value 
02.
Cells(lastrow, i) = Me.TB_Name.Value
Innerhalb der for-Schleife hat i da immer den gleichen Wert.
Müßte also jeweils
01.
Cells(lastrow, 1) = Me.TB_Mitgliedsnummer.Value 
02.
Cells(lastrow, 2) = Me.TB_Name.Value 
03.
Cells(lastrow, 3) = Me.TB_Straße.Value
sein
Die for-Schleife kannst du weg lassen.

MfG,
Henrik
Bitte warten ..
Mitglied: DerParte
29.11.2007 um 17:49 Uhr
Jo, vielen Dank hat funktioniert.

Kann man auch für Benutzernummer einen Autozähler einfügen? Wie müsste das dann aussehen?

Und wenn ich eine Auswahl noch mit einbringen möchte wie z.B. Führerscheinvorgezeigt? Dann kommen zei Optionsfelder, welche sich auf eine TextBox beziehen.

Wenn Option A soll er in die Spalte 3 schreiben und bei Option B in Spalte C. Mit einer IF Kann ich das machen oder mit select aber wie mache ich das mit den variablen?
Bitte warten ..
Mitglied: wakko
30.11.2007 um 11:25 Uhr
Moin,
Kann man auch für Benutzernummer einen
Autozähler einfügen? Wie
müsste das dann aussehen?
01.
Dim autozaehler% 
02.
autozaehler = .Cells(lastrow, 1).value + 1

Und wenn ich eine Auswahl noch mit
einbringen möchte wie z.B.
Führerscheinvorgezeigt? Dann kommen zei
Optionsfelder, welche sich auf eine TextBox
beziehen.

Wenn Option A soll er in die Spalte 3
schreiben und bei Option B in Spalte C. Mit
einer IF Kann ich das machen oder mit select
aber wie mache ich das mit den variablen?

Tut mir leid, ich verstehe nicht ganz, was du da möchtest...
01.
If optA.Value Then 
02.
     .cells(lastrow, 3) = "Führerschein vorgezeigt" 
03.
End If 
04.
If optB.Value Then 
05.
    .cells(lastrow, 4) = "Führerschein nicht vorgezeigt" 
06.
End If
Vielleicht sowas?

MfG
Bitte warten ..
Ähnliche Inhalte
Windows 8
EasyTransfer von 8.1 überträgt keine XP Daten
Anleitung von compispeziWindows 83 Kommentare

Hallo Leute. Manchmal denke ich, in Redmond gibt es eine Abteilung die es darauf abgesehen hat uns Admins den ...

Microsoft Office
Kopieren von auszuwählenden Daten in weitere Tabelle
Frage von dus100Microsoft Office1 Kommentar

Hallo, wie einige andere auch habe ich ein Problem bei der Erstellung von Makros in VBA. Ich nutzeExcel für ...

Microsoft Office
Excel Daten aus diversen Tabellen sammeln
Frage von FitforLifeMicrosoft Office9 Kommentare

Hallo, habe folgendes Aufgabe zu lösen: Es bestehen diverse Sheets. Beispielhaft hier auf 3 reduziert. Auf Sheet 1 und ...

VB for Applications
Eigener HTML-Code im UserForm
gelöst Frage von 94451VB for Applications5 Kommentare

Hallo, im Internetz habe ich dieses Script gefunden: die Public Variable (emailHT) habe ich hinzugefügt meine Idee war es ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 14 StundenMicrosoft Office2 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 16 StundenDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 17 StundenSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 20 StundenMicrosoft Office1 Kommentar

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Server-Hardware
Veeam Backup Server stürzt alle paar Tage ab
Frage von Leo-leServer-Hardware12 Kommentare

Hallo Forum, ich habe momentan folgendes Problem. Veeam Backup and Replication 9.5 u2 auf voll gepatchten DL 380 G7 ...

Windows 10
Win10 Laptop findet keine Netzwerkgeräte und Freigaben mehr
Frage von CoolzeroWindows 1010 Kommentare

Hi, seit ein paar Tagen habe ich das Problem das mein Windows 10 Laptop keine Geräte mehr in der ...

Batch & Shell
Dateien verschieben mit batch
gelöst Frage von michi-ffmBatch & Shell10 Kommentare

Hallo Zusammen hat jemand evtl eine Idee? Zunächst hier das Skript: Leider werden keine UNC-Pfade unterstüzt, kann mir jemand ...