Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
580to584
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
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

301 Forumthreads zu ähnlichen Themen

Aus VBA auf eigene DLL aus VB.NET zugreifen
Carsten

Hallo,
solange man innerhalb von VB.NET bleibt ist ja alles ganz einfach und schön, aber wie komme ich aus VBA heraus an die Methoden einer DLL ran die ich in VB.NET 2005 programmiert habe?
Da ich in einer öffentlichen Verwaltung arbeite und wir hier hunderte von Excel- und Word-Vorlage...
17.02.2009 16:00:00
Thread-ID: 1051537
3 Beiträge
Anzeige
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
Anzeige
VBA - Minimum finden und auf Zelle verweisen
Ines

Hallo,
seit Stunden probiere ich eine Lösung für mein eigentlich simples Problem zu finden, komme aber leider keinen Schritt mehr weiter.
Ich habe eine Tabelle mit Plattenabmessungen (Länge, Breite, Verhältnis von Oberfläche zu Volumen, ...) von Plattenwärmetauschern. Aus der Spalte (Ve...
03.05.2011 16:27:34
Thread-ID: 1212893
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
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
2
3
2
2
4
2
2
7
9
4
7
8
5
2
3
4
15
3
17
2
2
4
5