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.

Mitglied: DerParte

DerParte (Level 1) - Jetzt verbinden

29.11.2007, aktualisiert 30.11.2007, 7024 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
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

Sverweis Suche und dann Daten aus anderer Tabelle nehmen

gelöst Frage von blacksunMicrosoft Office7 Kommentare

Hallo, ich habe folgende Tabellen (Beispiele): Mastertabelle Jeden Monat habe ich neue Tabelle: Ziel soll es sein, dass mit ...

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
Backup

2016 - Restore mit WBAdmin - iSCSI Device als Sicherungsziel

Erfahrungsbericht von Henere vor 18 StundenBackup1 Kommentar

Servus zusammen, was mich eben einige graue Haare gekostet hat Server 2016. Ich habe meinem Server eine weitere M2 ...

Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 2 TagenHumor (lol)7 Kommentare

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 3 TagenExchange Server9 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 3 TagenErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Heiß diskutierte Inhalte
Hyper-V
Hyper-V keinen Zugriff auf USB Gerät über USB Server
Frage von Barns83Hyper-V10 Kommentare

Normal bin ich ein stiller Leser und wühle mich im normal Fall durch Foren oder schau durch meine Bücher. ...

Windows Server
Server 2016 Autotiering Storage Space
Frage von HenereWindows Server10 Kommentare

Servus, ich habe jetzt ein StorageSpace auf einem Server 2016 in Betrieb zum Testen. 1x M2 mit 512GB (970pro) ...

Netzwerke
SSH - Wieso werde ich nach VPN Verbindung rausgeschmissen?
Frage von VernoxVernaxNetzwerke10 Kommentare

Hallo, ich habe es endlich geschafft mein Handy mit einer VPN Verbindung an meinen Router anzuschließen. Nach der Login ...

Multimedia
Live TV mit Raspberry
Frage von honeybeeMultimedia9 Kommentare

Hallo, ich bin relativ neu im Umgang mit Raspberry und habe folgendes Problem: Ich habe keinen Fernsehanschluss über Kabel ...