Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 23:37:42
Wert in (€) behalten trotz Änderung in bestimmter Zelle
20.05.2025 18:11:42
Spalte J und L Höchstbetrag ermitteln
20.05.2025 16:19:36
Wenn Fehler
20.05.2025 15:34:36
Excelnamen - Typen erkennen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In VBA: A1:G7 = 1 bis 49

Forumthread: In VBA: A1:G7 = 1 bis 49

In VBA: A1:G7 = 1 bis 49
04.12.2003 10:24:52
N. Davidheimann
Hallo,

wie muß die Codezeile aussehen um A1:G7 mit dem Zahlen von 1 bis 49 zu füllen ?

Viele Grüße
Norbert
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: In VBA: A1:G7 = 1 bis 49
04.12.2003 10:41:22
Klaus
Hallo Norbert,
geht auch bestimmt einfacher, aber funktioniert.


Sub füllen()
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "4"
Range("E1").Select
ActiveCell.FormulaR1C1 = "5"
Range("F1").Select
ActiveCell.FormulaR1C1 = "6"
Range("G1").Select
ActiveCell.FormulaR1C1 = "7"
Range("A2").Select
ActiveCell.FormulaR1C1 = "8"
Range("B2").Select
ActiveCell.FormulaR1C1 = "9"
Range("C2").Select
ActiveCell.FormulaR1C1 = "10"
Range("D2").Select
ActiveCell.FormulaR1C1 = "11"
Range("E2").Select
ActiveCell.FormulaR1C1 = "12"
Range("F2").Select
ActiveCell.FormulaR1C1 = "13"
Range("G2").Select
ActiveCell.FormulaR1C1 = "14"
Range("A3").Select
ActiveCell.FormulaR1C1 = "15"
Range("B3").Select
ActiveCell.FormulaR1C1 = "16"
Range("C3").Select
ActiveCell.FormulaR1C1 = "17"
Range("D3").Select
ActiveCell.FormulaR1C1 = "18"
Range("E3").Select
ActiveCell.FormulaR1C1 = "19"
Range("F3").Select
ActiveCell.FormulaR1C1 = "20"
Range("G3").Select
ActiveCell.FormulaR1C1 = "21"
Range("A4").Select
ActiveCell.FormulaR1C1 = "22"
Range("B4").Select
ActiveCell.FormulaR1C1 = "23"
Range("C4").Select
ActiveCell.FormulaR1C1 = "24"
Range("D4").Select
ActiveCell.FormulaR1C1 = "25"
Range("E4").Select
ActiveCell.FormulaR1C1 = "26"
Range("F4").Select
ActiveCell.FormulaR1C1 = "27"
Range("G4").Select
ActiveCell.FormulaR1C1 = "28"
Range("A5").Select
ActiveCell.FormulaR1C1 = "29"
Range("B5").Select
ActiveCell.FormulaR1C1 = "30"
Range("C5").Select
ActiveCell.FormulaR1C1 = "31"
Range("D5").Select
ActiveCell.FormulaR1C1 = "31"
Range("E5").Select
ActiveCell.FormulaR1C1 = "33"
Range("F5").Select
ActiveCell.FormulaR1C1 = "34"
Range("G5").Select
ActiveCell.FormulaR1C1 = "35"
Range("A6").Select
ActiveCell.FormulaR1C1 = "36"
Range("B6").Select
ActiveCell.FormulaR1C1 = "37"
Range("C6").Select
ActiveCell.FormulaR1C1 = "38"
Range("D6").Select
ActiveCell.FormulaR1C1 = "39"
Range("E6").Select
ActiveCell.FormulaR1C1 = "40"
Range("F6").Select
ActiveCell.FormulaR1C1 = "41"
Range("G6").Select
ActiveCell.FormulaR1C1 = "42"
Range("A7").Select
ActiveCell.FormulaR1C1 = "43"
Range("B7").Select
ActiveCell.FormulaR1C1 = "44"
Range("C7").Select
ActiveCell.FormulaR1C1 = "45"
Range("D7").Select
ActiveCell.FormulaR1C1 = "46"
Range("E7").Select
ActiveCell.FormulaR1C1 = "47"
Range("F7").Select
ActiveCell.FormulaR1C1 = "487"
Range("F7").Select
ActiveCell.FormulaR1C1 = "48"
Range("G7").Select
ActiveCell.FormulaR1C1 = "49"
Range("H7").Select
End Sub

Anzeige
AW: In VBA: A1:G7 = 1 bis 49
04.12.2003 11:00:01
N. Davidheimann
Hallo Klaus,

ich dank' Dir ja für Deine Hilfe .. nur .. der "Erfinder" von VBA würde sich im Grabe umdrehen....

Gruß
Norbert
AW: In VBA: A1:G7 = 1 bis 49
04.12.2003 10:41:44
WernerB.
Hallo Norbert,

es ist zwar etwas mehr als eine Codezeile geworden, aber es sollte funktionieren:

Sub Norbert()
Dim c As Range
Dim i As Byte
Application.ScreenUpdating = False
For Each c In Range("A1:G7")
i = i + 1
c.Value = i
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige

Forumthreads zu verwandten Themen

1 Klick in Excel = Serienbrief (Word)
Marcus

Hallo zusammen,
ich habe da mal wieder ein kleines Problem!
Ich habe eine Exceltabelle mit Kundendaten. Diese muss ich in Einzelfällen anschreiben! Ich habe einen Worddokument, in dass ein paar Daten von einem Kunden eingetragen werden sollen.
Nun meine frage:
Gibt es eine Mögl...
03.09.2008 13:09:49
Thread-ID: 1007086
3 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Anzeige
Kann =mid(A1,1,1) nicht mit SVERWEIS verbinden
maxx_1985

Hallo liebe Excelexperten,
mein Problem:
14000 ich mache daraus eine 1. Mit der Formel =(A1,1,1)
Diese 1 steht nun in B1. Jetzt moechte ich mich darauf beziehen und eine IF/THEN Formel einbauen. Excel macht das aber nicht. Nur wenn ich in B1 die 1 MANEULL reinschreibe, greift meine...
07.11.2008 18:46:00
Thread-ID: 1022785
5 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
select range if cellvalue =1
patrick

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder w...
04.03.2009 11:16:37
Thread-ID: 1056258
5 Beiträge
ActiveSheet.CircleInvalid = null dann makro
Benjamin

hallo zusammen,
ich habe folgendes problem.
ich habe ein excel sheet mit mehren datenüberprüfungen versehen. Also z.B. in einer Spalte darf nur Datum grösser heute eingegeben werden, in einer anderen darf die maximale Textlänge 5 Zeichen nicht übertragen usw.
Das funktioniert auch g...
07.03.2009 17:23:28
Thread-ID: 1057716
6 Beiträge
select range if cellvalue =1
patrick

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder we...
09.03.2009 15:47:00
Thread-ID: 1058202
13 Beiträge
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 Beiträge
Sortierung mit Kopfzeie trotz "Header:=x1Guess"
ROlf

Hallo Leutz,
Folgender Codeauschnitt:
Columns("A:AP").EntireColumn.AutoFit
'************************
'TABELLE SORTIEREN
'************************
If Hauptmenu.OptionButton4.Value = True Then
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
09.04.2009 12:57:22
Thread-ID: 1067975
8 Beiträge
Anzeige
wenn Änderung Zellinhalt dann Macro
Joachim

Hallo,
ich hab 2 Tabellen (Eintrag und Statistik) und 2 Diagramme (Fehler und TelFax). Bei der Tabelle Statistik habe ich folgenden Code eingetragen:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:G30")) Is Nothing Then Call DiaFehlerFormat Call...
07.05.2009 14:02:59
Thread-ID: 1073604
12 Beiträge
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige