Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

Excel Zelle raufnummerieren

Frage Microsoft Microsoft Office

Mitglied: lotus

lotus (Level 1) - Jetzt verbinden

03.11.2006, aktualisiert 18.10.2012, 4609 Aufrufe, 8 Kommentare

Beim öffnen soll die Zelle eine neue Nummer erhalten.

hallo zusammen
ich möchte bei einer Zelle bei der ich z.b eine 1 drinn bei einem Neustart der Tabelle eine 2 drinn steht. Z.B Nummer 0101 sollte dann 0102 bei Neustart drinn stehen. Geht das?
Danke im Voraus und bis demnächst

Mit freundlichen Grüßen
lotus
Mitglied: 8644
03.11.2006 um 13:48 Uhr
Hi,

klar geht das:

01.
sub auto_open() 
02.
 Range("A1").Value  = Range("A1").Value + 1 
03.
end sub
Entscheidend ist der Name des Makros "auto_open"!

Psycho
Bitte warten ..
Mitglied: bastla
03.11.2006 um 14:15 Uhr
Hallo!

Auf jeden Fall klappt es, wenn das Makro im Code von "Diese Arbeitsmappe" liegt und den Namen "Sub Workbook_open()" trägt, also:
01.
Sub Workbook_open() 
02.
Worksheets("Tabelle1").Range("A1").Value = Worksheets("Tabelle1").Range("A1").Value + 1 
03.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: Biber
03.11.2006 um 14:21 Uhr
@psycho und @bastla
....und die Zusatzanforderung, dass Zahlen >100 eine führende "0" erhalten sollen?
Wollt ihr Euch da drücken? *g

Schönes Wochenende

Biber
Bitte warten ..
Mitglied: 8644
03.11.2006 um 14:31 Uhr
...also ich drücke mich nicht

Spalte markieren -> Rechte Maustaste -> Zellen Formatieren -> Reiter Zahlen wählen -> Benutzerdefiniert wählen -> 000# eingeben

und auch ein schönes Wochenende von mir

Psycho
Bitte warten ..
Mitglied: bastla
03.11.2006 um 15:32 Uhr
@Biber

Könnte man das nicht heimlich in der .xls per Batch (oder Patch) erledigen?

Grüße
bastla
Bitte warten ..
Mitglied: lotus
03.11.2006 um 15:46 Uhr
hallo zusammen und ein grosses Danke zuerst einmal.
Aber wo pflanze ich diesen Code hin???

Gruss
lotus
Bitte warten ..
Mitglied: bastla
03.11.2006, aktualisiert 18.10.2012
Hallo lotus!

Zunächst mit Alt-F11 den Visual Basic-Editor und dort, fall nicht ohnehin sichtbar, den Projekt-Explorer mit Strg-R aufrufen und dann:
http://www.administrator.de/forum/excel-zelle-raufnummerieren-43641.htm ...
(Codefenster per Doppelklick öffnen)

Grüße
bastla
Bitte warten ..
Mitglied: lotus
08.11.2006 um 09:02 Uhr
Bestens dankeschön an alle hat geklappt bin sehr froh danke.

Gruss
lotus
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
gelöst Zelle in Excel per Makro auswählen (7)

Frage von Enriqe zum Thema VB for Applications ...

Microsoft Office
gelöst Excel VBA Letzte Zelle Suchen dann rechnen und Wert in Zelle Übertragen (3)

Frage von Addi089 zum Thema Microsoft Office ...

VB for Applications
Excel VBA Sortierung von Daten (4)

Frage von easy4breezy zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (27)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (20)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...