Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1312to1316
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch ausfüllen

Automatisch ausfüllen
23.05.2013 17:04:04
Jürgen
Hallo an ALLE!
Mit Auto-Ausfüllen funktioniert das nicht was ich benötige!
Für eine interne Farben/Qualitäts Nr. benötige ich in der Spalte A folgenden Text:
aa0
aa1
aa2
aa3
aa4
aa5
aa6
aa7
aa8
aa9
aaa
aab
aac
...
...
...
ab0
ab1
ab2
ab3
ab4
ab5
ab6
ab7
ab8
ab9
aba
abb
...
azw
azx
azy
azz
(Hier sind Kleinbuchstaben, muss aber alles GROSSBUCHSTAEN sein)
Es soll also mit AA0 bis AZZ ausgefüllt werden (!!!!GROSSBUCHSTABEN!!!)
Das Gleiche benötige ich auch beginnend mit B, c etc.!
Wer kann mir helfen
DANKE!
Jürgen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch ausfüllen
23.05.2013 17:50:05
Tino
Hallo,
kannst mal diesen Code testen.
Sub Test() Dim n&, nn&, nCount& Dim ArrayData() Redim ArrayData(1 To 936, 1 To 1) For n = 65 To 90 'Buschstaben For nn = 48 To 57 'Zahlen nCount = nCount + 1 ArrayData(nCount, 1) = Chr(65) & Chr(n) & Chr(nn) Next nn For nn = 65 To 90 'Buschstaben nCount = nCount + 1 ArrayData(nCount, 1) = Chr(65) & Chr(n) & Chr(nn) Next nn Next n 'Ausgabe Range("A2").Resize(nCount, 1).Value = ArrayData End Sub Gruß Tino

Anzeige
AW: Automatisch ausfüllen
23.05.2013 18:51:25
Christian
Hallo Jürgen,
mit Formel, kannst Du ja anschließend kopieren und mit Inhalte einfügen, Werte überschreiben.
 A
1AA0
2AA1
3AA2
4AA3
5AA4
6AA5
7AA6
8AA7
9AA8
10AA9
11AAA
12AAB
13AAC
14AAD
15AAE
16AAF
17AAG
18AAH
19AAI
20AAJ
21AAK
22AAL
23AAM
24AAN
25AAO
26AAP
27AAQ
28AAR
29AAS
30AAT
31AAU
32AAV
33AAW
34AAX
35AAY
36AAZ

Formeln der Tabelle
ZelleFormel
A1=ZEICHEN(GANZZAHL((ZEILE()-1)/936)+65)&ZEICHEN(GANZZAHL(((ZEILE()-1)/36)+65)-(GANZZAHL(((ZEILE()-1)/936))*26))&ZEICHEN((ZEILE()-(GANZZAHL((ZEILE()-1)/36)*36)+47)+7*((ZEILE()-(GANZZAHL((ZEILE()-1)/36)*36)+47)>57))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

Anzeige
AW: Automatisch ausfüllen
24.05.2013 08:15:26
Jürgen
Danke Tino,
danke Christian!
Ihr habt mir sehr gut geholfen.
Jürgen

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige