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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro anhand Zellenwert anpassen

Forumthread: Makro anhand Zellenwert anpassen

Makro anhand Zellenwert anpassen
13.01.2023 15:01:31
Alain
Hallo Zusammen
Mein Makro sollte anhand eines Formelergebnisses eine bestimmte Stelle im Code anpassen.
Ich habe versucht mit einem zweiten Makro das erste Makro anzupassen und hatte kein Erfolg.
Kann mir jemand bei meinem Problem da weiterhelfen?
1. Der Zellenpfad berechne ich mit der Formel:

=TEIL(ADRESSE(24;(C4*3)+8);2;2)
Der Wert in C4 ist 30 und gibt die Spalte CT aus.
2. Nu möchte ich im Makro den Bereich "Range("O9:BP24").Select" durch das Formelergebnis CT ersetzen

Sub FS_kopieren()
' GVG_Büro und Verwaltung
Range("E25").Select
Sheets("Büro und Verwaltung").Select
ActiveWindow.SmallScroll ToRight:=-8
Range("L9:N24").Select
Range("N9").Activate
Selection.Copy
Range("O9:BP24").Select
ActiveSheet.Paste
End Sub
Hier ist die Beispieldatei:
https://www.herber.de/bbs/user/157248.xlsx
Danke im voraus für Eure Hilfe!
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro anhand Zellenwert anpassen
13.01.2023 15:13:56
onur 

Range(Cells(9,15),Cells(24,Range("C4")*3+8)).Select

AW: Makro anhand Zellenwert anpassen
13.01.2023 16:09:45
Alain
Hallo Onur
Danke für deinen Code.
Ich vergass zu erwähnen, dass C4 aus dem Blatt "Kontrolle" stammt und das Makro im Blatt "Büro und Verwaltung" ausgeführt wird.
Wo im Code muss ich den Blattnamen "Kontrolle" einfügen?
So wie ich es gemacht habe funktioniert es nicht.

Sub FS_kopieren()
' GVG_Büro und Verwaltung
Sheets("Büro und Verwaltung").Select
ActiveWindow.SmallScroll ToRight:=-8
Range("L9:N24").Select
Range("N9").Activate
Selection.Copy
Range(Cells(9, 15), Cells(24, Range(Kontrolle."C4") * 3 + 8)).Select
ActiveSheet.Paste
End Sub
lg Alain
Anzeige
AW: Makro anhand Zellenwert anpassen
13.01.2023 16:14:49
onur
Am einfachsten so:

Sp=Sheets("Kontrolle").Range("C4")
Range(Cells(9,15),Cells(24,Sp*3+8)).Select
Oder

Range(Cells(9,15),Cells(24,Sheets("Kontrolle").Range("C4") *3+8)).Select

AW: Makro anhand Zellenwert anpassen
13.01.2023 16:29:32
Alain
Hoi Onur
Der Code 

Range(Cells(9,15),Cells(24,Sheets("Kontrolle").Range("C4") *3+8)).Select
hat mein Problem gelöst!
Bei 

Sp=Sheets("Kontrolle").Range("C4")
Range(Cells(9,15),Cells(24,Sp*3+8)).Select
hat er ActiveSheet.Paste gelb markiert
Herzlichen Dank für deine schnelle Hilfe!
Anzeige
Gerne !
13.01.2023 22:35:58
onur
AW: Makro anhand Zellenwert anpassen
13.01.2023 15:15:23
Yal
Hallo Alain,
folgendes sollte reichen:

Sub FS_kopieren()
' GVG_Büro und Verwaltung
Sheets("Büro und Verwaltung").Range("L9:N24").Copy Range("O9")
End Sub
VG
Yal
AW: Makro anhand Zellenwert anpassen
13.01.2023 16:35:52
Alain
Hallo Yal
Danke für deinen Vorschlag. Es funktioniert, jedoch kopiert es meinen Bereich von L9:N24 nur einmal zu O9:N24. Er sollte diesen Bereich jedoch bis zur Zelle z.b CT kopieren, also in diesem Fall 30 Mal einfügen.
Mit der Codergänzung von onur 

Range(Cells(9,15),Cells(24,Sheets("Kontrolle").Range("C4") *3+8)).Select
hats funktioniert.
Danke für deine Hilfestellung!
lg Alain
Anzeige
;

Forumthreads zu verwandten Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
VBA: Bild an Zelle anhängen
Franz

Hallo Fachleute,
kann man ein Bild per VBA an eine bestimmte Zelle anhängen?
So kann ich ein Bild verschieben:
ActiveSheet.Shapes("Picture 3").IncrementLeft 50
ActiveSheet.Shapes("Picture 3").IncrementTop 50
Es soll aber bei Auftreten eines bestimmten Change-Ereignisses an d...
28.10.2008 11:53:00
Thread-ID: 1019873
3 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
Fotogrösse an Zellen anpassen per Makro
Florian

Hi,
habe eine Makro die .bmp-Dateien in ein Worksheet importiert. Leider ist die Grösse jrdesmal unterschiedlich. Kann ich die Bildgrösse eindeutig an den Zellrändern ausrichten (also z.B. Bild immer von Range "B2 - C5" (Äquivalent dem Benutzen der Alt-taste manuell)?
Danke,
Gruss F...
25.02.2009 15:16:42
Thread-ID: 1053991
4 Beiträge
Anzeige
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Summenbildung abhängig vom Zelleninhalt
Janesch

Hallo Excel - Forum...
brauche mal wieder eure Hilfe...
https://www.herber.de/bbs/user/62898.xls
in der angehängten Datei werden in Spalte B die Abteilungs -Nr. und Spalte C die Abteilungs-Name eingegeben. Die Abteilung selber wird dann noch mal in X-mögliche Unterabteilungen aufge...
03.07.2009 10:32:39
Thread-ID: 1086151
3 Beiträge
Text aus Zelle in MsgBox einfügen.
Wolfgang

Hallo,
über eine Checkbox wird, sofern diese markiert wird, eine MsgBox angezeigt. Wie kann ich erreichen, dass aus einem Tabellenblatt "Steuerung" der Text aus Zelle E20 mit eingefügt werden kann?
MsgBox "Bitte folgende Hinweise beachten:"......... und dann der Text aus Zelle E20.
...
08.07.2009 21:08:52
Thread-ID: 1087280
5 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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