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, 4617 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

mfg
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 ..
Ähnliche Inhalte
VB for Applications
gelöst Zelle in Excel per Klick einfärben (5)

Frage von C.Mue83 zum Thema VB for Applications ...

VB for Applications
gelöst Excel - VBA: Automatisches Setzen von Kommentaren in eine Zelle (3)

Frage von d4shoerncheN zum Thema VB for Applications ...

Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(2)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (16)

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

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Cloud-Dienste
gelöst Bitcoins minen über Nacht? (16)

Frage von 1410640014 zum Thema Cloud-Dienste ...