Thema Datum  Von Nutzer Rating
Antwort
Rot Abspeichern einer Dim inErsterZeile funktioniert nicht immer
 16.02.2014 16:42:16 Mark Kuhlmann
NotSolved

Ansicht des Beitrags:
Von:
Mark Kuhlmann		 Datum:
16.02.2014 16:42:16		 Views:
1314		 Rating:
     
Antwort:
  Ja
Thema:
Abspeichern einer Dim inErsterZeile funktioniert nicht immer

Hallo, bin ein Neuling was VBA betrifft.

 

Nun habe ich über zwei Comboboxen abfragen entwickelt und will im Nachgang die gesammelten

Informationen aus beiden Boxen über die Funktion inErsterZeile abspeichern.

Das alle funktioniert auch einfandfrei wenn ich im Nachgang über VBA in die Userform gehe.

Wenn ich diese nicht mache speichert er nicht.

VBA ist per Passwort geschützt

Marko ist per Passwort geschützt

 

Vielleicht hat ja jemand eine Idee ?? Admin aktivieren oder so!

 

Vielen Dank

 

Gruß Mark

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'Fügt die eingetragene Werte in Tabellen Blatt und schließt es Fomular Kundendaten
 
ThisWorkbook.Worksheets("Tabelle1").Activate
 
Dim intErsteLeereZeile As Long
    With ActiveWorkbook.Sheets(1)
        intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
     
        .Cells(intErsteLeereZeile, 1).Value = Kundendaten.txtDatum.Value
        .Cells(intErsteLeereZeile, 2).Value = Kundendaten.txtKDNR
        .Cells(intErsteLeereZeile, 3).Value = Kundendaten.txtNL.Value
        .Cells(intErsteLeereZeile, 4).Value = Kundendaten.txtADM.Value
        .Cells(intErsteLeereZeile, 5).Value = Kundendaten.txtKunde
        .Cells(intErsteLeereZeile, 6).Value = Kundendaten.txtStrasse
        .Cells(intErsteLeereZeile, 7).Value = Kundendaten.txtPLZ.Value
        .Cells(intErsteLeereZeile, 8).Value = Kundendaten.txtOrt
        .Cells(intErsteLeereZeile, 9).Value = Kundendaten.txtMaster
        .Cells(intErsteLeereZeile, 10).Value = Answer
        .Cells(intErsteLeereZeile, 11).Value = Application.UserName
             
         
         
    End With
'Daten einblenden und Abspeichern
 Worksheets("Daten").Activate
  Worksheets("Daten").Visible = xlSheetVisible
    ThisWorkbook.Save
     
      
        

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Abspeichern einer Dim inErsterZeile funktioniert nicht immer
 16.02.2014 16:42:16 Mark Kuhlmann
NotSolved