Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba für fortlaufendes zellenfüllen

Forumthread: vba für fortlaufendes zellenfüllen

vba für fortlaufendes zellenfüllen
09.03.2005 01:51:28
manni
hallo zusammen,
Wenn ich in zelle A1 im Tblatt(los) eine "1" schreibe soll in A2 ein "B" geschrieben werden und zelle A3 soll leer bleiben dann wieder "1", "B", leere Zelle usw bis Zelle A50.
Steht in A1 ein "B", soll A2 leer bleiben und in A3 dann eine "1" usw
Bleibt A1 leer, dann in A2 "1", A3 "B" usw.
Dann sollen 3 Spalten leer bleiben und dann in E1 mit dem nächsten wert abhängig von A50 weiter gemacht werden. Das soll 8mal so weiter gehen, jeweils 3 Spalten freilassen und dann von Zelle 1 bis 50 füllen.
Hoffe mir kann einer weiter helfen
gruss manni
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba für fortlaufendes zellenfüllen
09.03.2005 07:48:48
WernerB.
Hallo Manni,
dieses Makro gehört in das Modul des betreffenden Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
'Spalte "A":
Select Case Range("A1").Text
Case "1"
Range("A2").Value = "B"
Range("A3").ClearContents
Case "B"
Range("A2").ClearContents
Range("A3").Value = "1"
Case ""
Range("A2").Value = 1
Range("A3").Value = "B"
Case Else
Exit Sub
End Select
Range("A1:A3").AutoFill Destination:=Range("A1:A50"), Type:=xlFillCopy
'Spalte "E":
Range("E1:E48").Value = Range("A3:A50").Value
Range("E49:E50").Value = Range("A3:A4").Value
'Spalte "I":
Range("I1:I49").Value = Range("A2:A50").Value
Range("I50").Value = Range("A3").Value
'Spalten "M" und "Y":
Range("M1:M50").Value = Range("A1:A50").Value
Range("Y1:Y50").Value = Range("A1:A50").Value
'Spalten "Q" und "AC":
Range("Q1:Q50").Value = Range("E1:E50").Value
Range("AC1:AC50").Value = Range("E1:E50").Value
'Spalten "U" und "AG":
Range("U1:U50").Value = Range("I1:I50").Value
Range("AG1:AG50").Value = Range("I1:I50").Value
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
Spät aber trotzdem, vielen Dank o.T.
10.03.2005 06:11:41
manni
;

Forumthreads zu verwandten Themen

Auf einzelne Zeile einer Multi-Zelle zugreifen
Andreas
Hallo Michael,vielleicht hier mal ein Ansatz die Zeilennummer zu ermitteln:
Viel Spaß,
Andreas
15.04.2002 14:35:16
Thread-ID: 113418
3 Beiträge
VBA: Tagesdatum auf 3 Zellen aufteilen
KlausF

Hallo Forum,
ich stehe gerade vor folgendem Problem:
Ich habe einen Button, der zellfüllend in einer beliebigen Zelle steht, z.B. in A2
Ich möchte jetzt auf Klick immer das heutige Tagesdatum wie folgt aufteilen:
die darüber liegende Zelle (hier A1) bekommt den Tag von Heute() i...
15.10.2010 15:37:47
Thread-ID: 1182643
4 Beiträge
ComboBox fühlen ohne auf Tabelle zuzugreifen
Lena

Guten Abend!Gibt es eine Möglichkeit, wie ich die Einträge, die in einer ComboBox erscheinen, vorgeben kann, ohne die ComboBox an einen Zellbereich in dem Tabellenblatt zu binden?Ich möchte 7 Einträge vorgeben (Variante 1; Variante 2; ... Variante 7). Daran soll sich auch nichts ändern. Was ich...
18.05.2002 18:33:00
Thread-ID: 121915
3 Beiträge
Tabellen Spalte aufsteigend sortieren mit VBA
Malcolmp

Hallo Forum,
mit folgendem Code Schreibe ich einen Datensatz in die erste freie Zelle einer Spalte in Tabelle2:
Tabelle2.Cells(Tabelle2.Cells(Rows.Count, FzgSP.Column).End(xlUp).Row + 1, FzgSP.Column) = _
CLng(DATE1) & " " & Left(CDate(TIME1), 2) & " " & CLng(DATE2)...
27.07.2011 13:22:31
Thread-ID: 1223854
5 Beiträge
Zellen bedingt neu Auflisten (ohne VBA/Filter)
SebastianSchelb

Hallo liebe Forumuser,
ich brauche euere Hilfe.
Ich habe diese Tabelle:
https://www.herber.de/bbs/user/83422.xls
Die Matrix B:C soll durchsucht werden und bei von allen Zellen, in welcher ein "X" ist, die zugehörige Bezeichnung in einer neuen Tabelle (ohne Leerzellen) auflisten...
16.01.2013 12:03:34
Thread-ID: 1294571
3 Beiträge
VBA Zelleintrag auf verschiedenen Tabellen und kop
Hans

Hallo.
Mein Problem.
Ich möchte in Tabelle 1 in Spalte B Zahlen mit Zahlen in Tabelle2 in Spalte D vergleichen und bei übereinstimmung das Datum in Tabelle2 in Spalte E kopieren und in Tabelle1 in Spalte A einfügen.
Wäre schön wenn mir da jemand helfen kann und es auch bisle beschre...
18.04.2013 13:36:06
Thread-ID: 1309371
8 Beiträge
Vierte Pivot-Tabelle reagiert nicht auf VBA Code
Wos

Mahlzeit allen zusammen,
ich habe mit meinem hier bereits modifizierten Code ein neues Problem.
Zum Aufbau:
Auf drei Datenblättern sind 4 Pivottabellen verteilt:
Datenblatt 1: PivotTabelle 1
Datenblatt 2: PivotTabelle 2
Datenblatt 3: PivotTabelle 3 und 4
Alle Pivo...
16.01.2014 13:45:15
Thread-ID: 1345460
10 Beiträge
Anzeige
VBA PP auf kürzlich erstelltes Shape zugreifen
Paddy_P

Hallo,
ich schreibe gerade an einem Skript bei dem ich über VBA aus Excel einen Range Kopiere und diesen in Powerpoint einfüge.
Sobald ich versuche das erstellte Shape anzusprechen (Tabelle 1) gibt es eine Fehlermeldung, dass dieses Shape nicht vorhanden wäre.
Das würde ich ja akze...
08.10.2014 15:30:58
Thread-ID: 1385621
9 Beiträge
Anzeige
Textfeld in Diagramm soll auf Zelle zugreifen
Loer

Hallo,
habe ine weiteres Problem bei meiner Arbeit mit VBA wo ich einfach nicht weiterkomme.
Habe schon die sufu genutzt aber nichts gelesen, auser einmal:
"Textfelder mit Formeln funktionieren nicht"
Ist es tatsächlich so?
Ich möchte ein Diagramm (auf der x-Achse eine fortl...
10.02.2015 13:13:43
Thread-ID: 1408391
6 Beiträge
Datentabellen aufrufen per VBA
Berni

Liebe Excellenzen!
Ich bin gerade dabei, eine Planungstabelle zu basteln, die aufgrund der Detailierung doch ziemlich umfangreich wird. Daher habe ich pro Tabellenblatt einen Planungsauftrag vorgesehen, in welchem dann die Projektanten die diversen Kosten (Stunden) für das kommende Jahr pla...
02.07.2015 11:01:36
Thread-ID: 1434417
4 Beiträge
suche Formel um auf andere Tabelle zu zugreifen
Monica

Hallo,
ich habe ein kleines Problem.
Ich müsste einmal an einer Excel Datei von uns etwas verändern.
Es geht darum, dass man von einer bestimmten Zeile Zugriff auf eine andere Tabelle haben muss.
z.B. von Tabelle 1 von G 34 auf Tabelle 5 und da auf die ganze Spalte von A.
I...
19.11.2015 09:36:09
Thread-ID: 1459385
16 Beiträge
Anzeige
Modul auf Tabelle2 zugreifen
Markus

Liebes Forum,
wie muss ich den folgenden Code ergänzen (Modul2), wenn das allgemeine Modul die Daten in Tabelle 2 sortieren soll, jedoch über die Tabelle1 aufgerufen wird.
Dachte an sowas wie:
Dim wks As Worksheet
Set wks = Sheets ("Tabelle2")
bekomme es leider nicht hin ......
08.05.2016 22:10:57
Thread-ID: 1492275
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