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 Werte in bestimmtes Tabellenblatt schreiben dieses aber nicht anzeigen?

Mitglied: DerParte

DerParte (Level 1) - Jetzt verbinden

03.12.2007, aktualisiert 04.12.2007, 5827 Aufrufe, 2 Kommentare

Moin,

ich möchte gerne das die Werte aus einer UserForm in das Tabellenblatt Mitglieder übernommen werden, das Tabellenblatt aber nicht angezeigt wird.

Der Button Code sieht so aus:

Private Sub CmdB_Anlegen_Click()
Worksheets("Fahrzeuge").Activate
Dim lastrow, i As Integer
' Letzte Zeile suchen
lastrow = [a65536].End(xlUp).Row + 1

'Zähler für die Fahrzeugnummer
autozaehler = ([a65536].End(xlUp).Row + 1) - 1

' Daten aus der Fahrzeug_Anlegen übertragen

Cells(lastrow, 1) = autozaehler
Cells(lastrow, 2) = Me.TB_Autotyp.Value
Cells(lastrow, 3) = Me.TB_Stundenpreis1.Value
Cells(lastrow, 4) = Me.TB_Stundenpreis2.Value
Cells(lastrow, 5) = Me.TB_Stundenpreis3.Value
Cells(lastrow, 6) = Me.TB_Tagestarif.Value
Cells(lastrow, 7) = Me.TB_Wochenendgutschrift.Value
Cells(lastrow, 8) = Me.TB_Kilometertarif.Value
Cells(lastrow, 9) = Me.TB_Anschaffungspreis.Value
Cells(lastrow, 10) = Me.TB_Anschaffungsdatum.Value
Cells(lastrow, 11) = Me.TB_NächsteHU.Value
Cells(lastrow, 12) = Me.TB_NächsteWartung.Value

' Datenfelder löschen
With Me
.TB_Autonummer.Value = autozaehler + 1
.TB_Autotyp.Value = ""
.TB_Stundenpreis1.Value = ""
.TB_Stundenpreis2.Value = ""
.TB_Stundenpreis3.Value = ""
.TB_Tagestarif.Value = ""
.TB_Wochenendgutschrift.Value = ""
.TB_Kilometertarif.Value = ""
.TB_Anschaffungspreis.Value = ""
.TB_Anschaffungsdatum.Value = ""
.TB_NächsteHU.Value = ""
.TB_NächsteWartung.Value = ""
End With
End Sub
Mitglied: bastla
03.12.2007 um 14:36 Uhr
Hallo DerParte!

Versuch es so:
01.
Private Sub CmdB_Anlegen_Click() 
02.
With Worksheets("Fahrzeuge") 
03.
	Dim lastrow As Integer, i As Integer 
04.
 
05.
	' Letzte Zeile suchen 
06.
	lastrow = .[a65536].End(xlUp).Row + 1 
07.
 
08.
	'Zähler für die Fahrzeugnummer 
09.
	autozaehler = lastrow - 1 
10.
 
11.
	' Daten aus der Fahrzeug_Anlegen übertragen 
12.
	.Cells(lastrow, 1) = autozaehler 
13.
	.Cells(lastrow, 2) = Me.TB_Autotyp.Value 
14.
	.Cells(lastrow, 3) = Me.TB_Stundenpreis1.Value 
15.
	.Cells(lastrow, 4) = Me.TB_Stundenpreis2.Value 
16.
	.Cells(lastrow, 5) = Me.TB_Stundenpreis3.Value 
17.
	.Cells(lastrow, 6) = Me.TB_Tagestarif.Value 
18.
	.Cells(lastrow, 7) = Me.TB_Wochenendgutschrift.Value 
19.
	.Cells(lastrow, 8) = Me.TB_Kilometertarif.Value 
20.
	.Cells(lastrow, 9) = Me.TB_Anschaffungspreis.Value 
21.
	.Cells(lastrow, 10) = Me.TB_Anschaffungsdatum.Value 
22.
	.Cells(lastrow, 11) = Me.TB_NächsteHU.Value 
23.
	.Cells(lastrow, 12) = Me.TB_NächsteWartung.Value 
24.
End With 
25.
 
26.
' Datenfelder löschen 
27.
With Me 
28.
	.TB_Autonummer.Value = autozaehler + 1 
29.
	.TB_Autotyp.Value = "" 
30.
	.TB_Stundenpreis1.Value = "" 
31.
	.TB_Stundenpreis2.Value = "" 
32.
	.TB_Stundenpreis3.Value = "" 
33.
	.TB_Tagestarif.Value = "" 
34.
	.TB_Wochenendgutschrift.Value = "" 
35.
	.TB_Kilometertarif.Value = "" 
36.
	.TB_Anschaffungspreis.Value = "" 
37.
	.TB_Anschaffungsdatum.Value = "" 
38.
	.TB_NächsteHU.Value = "" 
39.
	.TB_NächsteWartung.Value = "" 
40.
End With 
41.
End Sub
Noch eine Anmerkung: Mit
01.
Dim lastrow, i As Integer
erhält die Variable "lastrow" den Typ "Variant" und nur "i" den Typ "Integer" - eine derartige Schreibweise funktioniert nur in VB (ohne "A" und erst ab .NET).

Grüße
bastla
Bitte warten ..
Mitglied: DerParte
04.12.2007 um 08:01 Uhr
Jo vielen Dank Bastla!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Werte in verschiedenen Tabellenblättern abgleichen und ggf. diese Werte einfärben

Frage von frosch44Microsoft Office3 Kommentare

HAllo, ich bitte um Entschuldigung, aber der erste Denk-Ansatz war meinerseits falsch ist folgendes möglich: Ich habe Werte (einmalig ...

Java

In einem ListView (Android Studio) bestimmte Werte farbig anzeigen

Frage von helmuthelmut2000Java

Hi, Ich würde mal eure Hilfe gebrauchen. Ich habe mir im Android Studio eine App erstellt, wo ich meine ...

Microsoft Office

2 Fragen in Infopath2010 (Wert aufsplitten und einen Satzt schreiben bei einem bestimmten wert)

gelöst Frage von coolkaiserABCMicrosoft Office12 Kommentare

Hallo Ich muss in Infopath eine Formularvorlage(*.xsn) für xml Dateien von einem Bestellprogram erstellen die später auch in xml ...

Microsoft Office

Excel 2013 Werte aus Dateien in ein Tabellenblatt zusammenführen

Frage von DerGueMicrosoft Office

Hallo zusammen, vielleicht kann mir hier jem. helfen. Ich habe ca. 50 gleich aufgebaute Dateien (Einsatzlisten) in einem Ordner ...

Neue Wissensbeiträge
Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 11 StundenHumor (lol)

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 13 StundenExchange Server6 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 1 TagErkennung und -Abwehr3 Kommentare

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

Vmware
VMware Updates gegen L1 Lücke
Information von sabines vor 1 TagVmware

Für die Vmware Produkte vCenter Server, ESXi, Workstation und Fusion stehe Updates bereit um die L1 Lücke zu schließen. ...

Heiß diskutierte Inhalte
Windows Server
Domäne einsilbig mit nur einem Namen benannt - sowie AD und MX auf einer VM Kardinalsfehler?
Frage von TomTestWindows Server48 Kommentare

Hallo liebe Freunde gepflegter Probleme, seit kurzem soll ich eine Domäne verwalten die zuvor von einem IT-Dienstleister erstellt und ...

Microsoft
VPN Verbindung kann nicht aufgebaut werden
Frage von AlexderITlerMicrosoft35 Kommentare

Hallo, Ich möchte an einem unserer PCs in unserer Tochterfirma eine VPN zu unserem Netzwerk einrichten. Das schlägt allerdings ...

Windows Server
Windows Server per Web auf Daten zugreifen und verwalten
Frage von matze2090Windows Server16 Kommentare

Hallo, ich würde gerne von außen auf meinem Windows Server zugreifen um auf meine Daten zu verwalten. Meine frage ...

DNS
Gibt es eine Art DNS Proxy?
Frage von icepietDNS16 Kommentare

Hallo Nerds, Ich würde gerne folgendes machen: ts.domain.de:3389 soll auf 1.2.3.4:3389 auflösen ts2.domain.de:3389 soll auf 1.2.3.4:3390 auflösen Gibt es ...