MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 29.11.2010, 06:44   #16
Stefan85
Neuer Benutzer
Neuer Benutzer
Standard

Moin Moin zusammen,

super danke dir Hary!
Jetzt passt alles... Also da wäre ich nicht drauf gekommen!

Grüße Stefan
Stefan85 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 15:14   #17
ydnkicol
Neuer Benutzer
Neuer Benutzer
Standard

Zitat: von hary Beitrag anzeigen

Hallo
dann so.
siehe Anhang.
gruss hary

Hallo Hary,
genau diese Lösung suche ich. Aber ich benötige nicht das Format "2011.001", sondern ganz normal von 1 angefangen und darauf folgende Nummern. Könntest du mir bitte auch weiterhelfen?

Danke.

Grup

Geändert von ydnkicol (03.01.2018 um 15:17 Uhr).
ydnkicol ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 15:48   #18
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard

Moin, Grup,

setze in die Anweisung
Code:

   TextBox10 = "2011.001"
Deinen gewünschten Startwert ein.

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.01.2018, 09:26   #19
ydnkicol
Neuer Benutzer
Neuer Benutzer
Standard

Das funktioniert leider nicht, da folgendes Ergebnis erscheint:

Audit-Nummer
1
102
102103
102103104

Es wurden auch von mir ein paar Veränderungen versucht, leider ohne Erfolg. Bitte um weitere Hilfe,danke.
ydnkicol ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.01.2018, 09:59   #20
hary
MOF Guru
MOF Guru
Standard

Moin
Dann versuch es mal so. Aenderungen auskommentiert.
Code:

Private Sub CommandButton1_Click()
Dim letzte As Long
Cells.Borders.LineStyle = xlNone
   letzte = Cells(Rows.Count, 2).End(xlUp).Row + 1
      Cells(letzte, 2) = CLng(Me.TextBox10) '---hier so aendern
      Cells(letzte, 3) = Me.TextBox3
      Cells(letzte, 4) = Me.TextBox4
      Cells(letzte, 5) = Me.TextBox5
      Cells(letzte, 6) = Me.TextBox6
      Cells(letzte, 7) = Me.TextBox7
      Cells(letzte, 8) = Me.ComboBox1
      Cells(letzte, 9) = Me.TextBox9
      Me.TextBox3 = ""
      Me.TextBox4 = ""
      Me.TextBox5 = ""
      Me.TextBox6 = ""
      Me.TextBox7 = ""
      Me.ComboBox1 = ""
      Me.TextBox9 = ""
      TextBox10 = Application.Max(Columns(2)) + 1 '---hier so aendern
Range(Range("B6:J6"), Cells(Rows.Count, 2).End(xlUp)).Borders.LineStyle = xlContinuous
Range("B6:J6").BorderAround Weight:=xlThick
Range(Range("B6:J6"), Cells(Rows.Count, 2).End(xlUp)).BorderAround Weight:=xlThick
End Sub
und
Code:

Private Sub UserForm_Activate()
'---hier so aendern
    TextBox10 = Application.Max(Columns(2)) + 1
   Me.ComboBox1.Clear
   Me.ComboBox1.AddItem "1st"
   Me.ComboBox1.AddItem "2nd"
   Me.ComboBox1.AddItem "3rd"
   Me.ComboBox1.ListIndex = 0
End Sub
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.01.2018, 10:24   #21
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard

Na ja, das Hochzählen muss schon angepasst werden.
Angehängte Dateien
Dateityp: xls dd_NextNr.xls (44,5 KB, 6x aufgerufen)

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:54 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.