Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2025 14:16:04
VBA - Löschen Zellinhalt nur unter Voraussetzung zulassen
25.04.2025 11:50:27
Fehler beim Kopieren von Word zu Outlook
25.04.2025 11:11:55
Summenprodukt
25.04.2025 10:46:43
Code generierte Textboxen in Frames bekommen keinen Focus
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
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro kleiner machen

Forumthread: Makro kleiner machen

Makro kleiner machen
08.06.2002 02:45:12
HeinoB
Hallo
Ich habe ein Makro geschrieben, das für einen Profi sehr viel kürzer zu schreiben sein dürfte.
Ich behersche dieses leider nicht.
Mein Makro funzt tadellos, aber wie programmiert man das richtig?? Für Tip´s und Hilfe wäre ich Dankbar.
Hier mein Makrobeschreibung:
Wenn in der Tabelle "Eingabe" in Zelle C5 ein Wert über Gültigkeitsauswahl eingetragen wird, dann soll in der selben Tabelle in Zelle C10 ein Wert eingetragen werden, der in der Tabelle "Gültigkeiten" in der Zelle rechts neben der Ausgewählten liegt.(Werte in Gültigkeiten auswahl = C3:C74, und die Werte für C10 sind in D3:D74)
Hier Mein Makro:
'Das Makro wird bei verlassen der Zelle C5 automatisch gestartet.

Sub Kostenstellen()
Sheets("Eingabe").Select
Select Case Range("C5")
Case Is = ""
Range("c10") = ""
Case Is = Sheets("Gültigkeiten").Range("c3")
Range("c10") = Sheets("Gültigkeiten").Range("d3")
Case Is = Sheets("Gültigkeiten").Range("c4")
Range("c10") = Sheets("Gültigkeiten").Range("d4")
Case Is = Sheets("Gültigkeiten").Range("c5")
Range("c10") = Sheets("Gültigkeiten").Range("d5")
Case Is = Sheets("Gültigkeiten").Range("c6")
Range("c10") = Sheets("Gültigkeiten").Range("d6")
Case Is = Sheets("Gültigkeiten").Range("c7")
Range("c10") = Sheets("Gültigkeiten").Range("d7")
Case Is = Sheets("Gültigkeiten").Range("c8")
Range("c10") = Sheets("Gültigkeiten").Range("d8")
Case Is = Sheets("Gültigkeiten").Range("c9")
Range("c10") = Sheets("Gültigkeiten").Range("d9")
Case Is = Sheets("Gültigkeiten").Range("c10")
Range("c10") = Sheets("Gültigkeiten").Range("d10")
Case Is = Sheets("Gültigkeiten").Range("c12")
Range("c10") = Sheets("Gültigkeiten").Range("d12")
Case Is = Sheets("Gültigkeiten").Range("c13")
Range("c10") = Sheets("Gültigkeiten").Range("d13")
Case Is = Sheets("Gültigkeiten").Range("c14")
Range("c10") = Sheets("Gültigkeiten").Range("d14")
Case Is = Sheets("Gültigkeiten").Range("c15")
Range("c10") = Sheets("Gültigkeiten").Range("d15")
Case Is = Sheets("Gültigkeiten").Range("c16")
Range("c10") = Sheets("Gültigkeiten").Range("d16")
Case Is = Sheets("Gültigkeiten").Range("c17")
Range("c10") = Sheets("Gültigkeiten").Range("d17")
Case Is = Sheets("Gültigkeiten").Range("c18")
Range("c10") = Sheets("Gültigkeiten").Range("d18")
Case Is = Sheets("Gültigkeiten").Range("c19")
Range("c10") = Sheets("Gültigkeiten").Range("d19")
Case Is = Sheets("Gültigkeiten").Range("c20")
Range("c10") = Sheets("Gültigkeiten").Range("d20")
Case Is = Sheets("Gültigkeiten").Range("c21")
Range("c10") = Sheets("Gültigkeiten").Range("d21")
Case Is = Sheets("Gültigkeiten").Range("c22")
Range("c10") = Sheets("Gültigkeiten").Range("d22")
Case Is = Sheets("Gültigkeiten").Range("c23")
Range("c10") = Sheets("Gültigkeiten").Range("d23")
Case Is = Sheets("Gültigkeiten").Range("c24")
Range("c10") = Sheets("Gültigkeiten").Range("d24")
Case Is = Sheets("Gültigkeiten").Range("c25")
Range("c10") = Sheets("Gültigkeiten").Range("d25")
Case Is = Sheets("Gültigkeiten").Range("c26")
Range("c10") = Sheets("Gültigkeiten").Range("d26")
Case Is = Sheets("Gültigkeiten").Range("c27")
Range("c10") = Sheets("Gültigkeiten").Range("d27")
Case Is = Sheets("Gültigkeiten").Range("c28")
Range("c10") = Sheets("Gültigkeiten").Range("d28")
Case Is = Sheets("Gültigkeiten").Range("c29")
Range("c10") = Sheets("Gültigkeiten").Range("d29")
Case Is = Sheets("Gültigkeiten").Range("c30")
Range("c10") = Sheets("Gültigkeiten").Range("d30")
Case Is = Sheets("Gültigkeiten").Range("c31")
Range("c10") = Sheets("Gültigkeiten").Range("d31")
Case Is = Sheets("Gültigkeiten").Range("c32")
Range("c10") = Sheets("Gültigkeiten").Range("d32")
Case Is = Sheets("Gültigkeiten").Range("c33")
Range("c10") = Sheets("Gültigkeiten").Range("d33")
Case Is = Sheets("Gültigkeiten").Range("c34")
Range("c10") = Sheets("Gültigkeiten").Range("d34")
Case Is = Sheets("Gültigkeiten").Range("c35")
Range("c10") = Sheets("Gültigkeiten").Range("d35")
Case Is = Sheets("Gültigkeiten").Range("c36")
Range("c10") = Sheets("Gültigkeiten").Range("d36")
Case Is = Sheets("Gültigkeiten").Range("c37")
Range("c10") = Sheets("Gültigkeiten").Range("d37")
Case Is = Sheets("Gültigkeiten").Range("c38")
Range("c10") = Sheets("Gültigkeiten").Range("d38")
Case Is = Sheets("Gültigkeiten").Range("c39")
Range("c10") = Sheets("Gültigkeiten").Range("d39")
Case Is = Sheets("Gültigkeiten").Range("c40")
Range("c10") = Sheets("Gültigkeiten").Range("d40")
Case Is = Sheets("Gültigkeiten").Range("c41")
Range("c10") = Sheets("Gültigkeiten").Range("d41")
Case Is = Sheets("Gültigkeiten").Range("c42")
Range("c10") = Sheets("Gültigkeiten").Range("d42")
Case Is = Sheets("Gültigkeiten").Range("c43")
Range("c10") = Sheets("Gültigkeiten").Range("d43")
Case Is = Sheets("Gültigkeiten").Range("c44")
Range("c10") = Sheets("Gültigkeiten").Range("d44")
Case Is = Sheets("Gültigkeiten").Range("c45")
Range("c10") = Sheets("Gültigkeiten").Range("d45")
Case Is = Sheets("Gültigkeiten").Range("c46")
Range("c10") = Sheets("Gültigkeiten").Range("d46")
Case Is = Sheets("Gültigkeiten").Range("c47")
Range("c10") = Sheets("Gültigkeiten").Range("d47")
Case Is = Sheets("Gültigkeiten").Range("c48")
Range("c10") = Sheets("Gültigkeiten").Range("d48")
Case Is = Sheets("Gültigkeiten").Range("c49")
Range("c10") = Sheets("Gültigkeiten").Range("d49")
Case Is = Sheets("Gültigkeiten").Range("c50")
Range("c10") = Sheets("Gültigkeiten").Range("d50")
Case Is = Sheets("Gültigkeiten").Range("c51")
Range("c10") = Sheets("Gültigkeiten").Range("d51")
Case Is = Sheets("Gültigkeiten").Range("c52")
Range("c10") = Sheets("Gültigkeiten").Range("d52")
Case Is = Sheets("Gültigkeiten").Range("c53")
Range("c10") = Sheets("Gültigkeiten").Range("d53")
Case Is = Sheets("Gültigkeiten").Range("c54")
Range("c10") = Sheets("Gültigkeiten").Range("d54")
Case Is = Sheets("Gültigkeiten").Range("c55")
Range("c10") = Sheets("Gültigkeiten").Range("d55")
Case Is = Sheets("Gültigkeiten").Range("c56")
Range("c10") = Sheets("Gültigkeiten").Range("d56")
Case Is = Sheets("Gültigkeiten").Range("c57")
Range("c10") = Sheets("Gültigkeiten").Range("d57")
Case Is = Sheets("Gültigkeiten").Range("c58")
Range("c10") = Sheets("Gültigkeiten").Range("d58")
Case Is = Sheets("Gültigkeiten").Range("c59")
Range("c10") = Sheets("Gültigkeiten").Range("d59")
Case Is = Sheets("Gültigkeiten").Range("c60")
Range("c10") = Sheets("Gültigkeiten").Range("d60")
Case Is = Sheets("Gültigkeiten").Range("c61")
Range("c10") = Sheets("Gültigkeiten").Range("d61")
Case Is = Sheets("Gültigkeiten").Range("c62")
Range("c10") = Sheets("Gültigkeiten").Range("d62")
Case Is = Sheets("Gültigkeiten").Range("c63")
Range("c10") = Sheets("Gültigkeiten").Range("d63")
Case Is = Sheets("Gültigkeiten").Range("c64")
Range("c10") = Sheets("Gültigkeiten").Range("d64")
Case Is = Sheets("Gültigkeiten").Range("c65")
Range("c10") = Sheets("Gültigkeiten").Range("d65")
Case Is = Sheets("Gültigkeiten").Range("c67")
Range("c10") = Sheets("Gültigkeiten").Range("d67")
Case Is = Sheets("Gültigkeiten").Range("c68")
Range("c10") = Sheets("Gültigkeiten").Range("d68")
Case Is = Sheets("Gültigkeiten").Range("c69")
Range("c10") = Sheets("Gültigkeiten").Range("d69")
Case Is = Sheets("Gültigkeiten").Range("c70")
Range("c10") = Sheets("Gültigkeiten").Range("d70")
Case Is = Sheets("Gültigkeiten").Range("c71")
Range("c10") = Sheets("Gültigkeiten").Range("d71")
Case Is = Sheets("Gültigkeiten").Range("c72")
Range("c10") = Sheets("Gültigkeiten").Range("d72")
Case Is = Sheets("Gültigkeiten").Range("c73")
Range("c10") = Sheets("Gültigkeiten").Range("d73")
Case Is = Sheets("Gültigkeiten").Range("c74")
Range("c10") = Sheets("Gültigkeiten").Range("d74")
Case Is = Sheets("Gültigkeiten").Range("c66")
Range("c10") = Sheets("Gültigkeiten").Range("d66")
Case Is = Sheets("Gültigkeiten").Range("c11")
Range("c10") = Sheets("Gültigkeiten").Range("11")
End Select
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro kleiner machen
08.06.2002 03:21:24
Hans W. Herber
Hallo Heino,

da läßt sich leider nicht allzuviel machen:

hans

Re: Makro kleiner machen
08.06.2002 03:57:38
HeinoB
Hallo Hans
Erst einmal herzlichen Dank für Deine Hilfe.
Dein Makro ist ja nun wirklich ein wenig kürzer.
Leider holt sich das Makro nicht die Daten die ich brauche.
Es werden jetzt die Daten zwei Zellen oberhalb der Suchstelle in C10 geschrieben, ich brauche aber die Daten rechts der Fundstelle.
Die Suchspalte ist richtig.Nur der Wert der in die "Eingabe" Tabelle übertragen werden soll ist falsch.
Kannst Du mir da eventuell nochmals weiterhelfen.
Gruß Heino
Anzeige
Re: Makro kleiner machen
08.06.2002 03:58:46
HeinoB
Hallo Hans
Erst einmal herzlichen Dank für Deine Hilfe.
Dein Makro ist ja nun wirklich ein wenig kürzer.
Leider holt sich das Makro nicht die Daten die ich brauche.
Es werden jetzt die Daten zwei Zellen oberhalb der Suchstelle in C10 geschrieben, ich brauche aber die Daten rechts der Fundstelle.
Die Suchspalte ist richtig.Nur der Wert der in die "Eingabe" Tabelle übertragen werden soll ist falsch.
Kannst Du mir da eventuell nochmals weiterhelfen.
Gruß Heino
Anzeige
Re: Makro kleiner machen
08.06.2002 04:04:30
Hans W. Herber
... sorry, die Spaltenverschiebung war mir nicht aufgefallen. Da der Code aber ziemlich logisch aufgebaut ist, einfach nur statt:
.Range("C10").Value = wks.Cells(var, 3).Value

jetzt:
.Range("C10").Value = wks.Cells(var, 4).Value

Ich empfehle Dir, die xlBasics von meiner Downloadseite runterzuladen.

hans

Anzeige
Re: Makro kleiner machen
08.06.2002 05:08:20
HeinoB
Danke Hans
Ich habe mir Deine CD gekauft und bin kräftig am Durchsehen.
Die CD ist sehr hilfreich beim lernen. Aber manchmal denkt man halt zu kompliziert.Oder will das ergebnis schneller haben als man kann.
Erst einmal herzlichen Dank.
Ich habe gleich Feierabend.
Schönes Wochenende
Heino
Anzeige
Nachtrag
08.06.2002 05:17:39
HeinoB
Noch eine kleine Änderung damit es passt

vorher:
wks.Range(wks.Cells(3, 3), wks.Cells(74, 3)), 0)
jetzt:
wks.Range(wks.Cells(1, 3), wks.Cells(74, 3)), 0)
Super Hans
Ich habe wiedert einmal etwas gelernt.
Gruß Heino

Forumthreads zu verwandten Themen

AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Anzeige
Makrooptimierung
David

Hallo zusammen.
Ich bin mal wieder dabei, meine VBA-Kenntnisse auf die Probe zu stellen und zu versuchen, diese zu erweitern.
Ich habe eine aus SAP exportierte Tabelle, die nach bestimmten Vorgaben umgebaut werden muss. Das von mir geschriebene Makro funzt soweit auch zufriedenstellend,...
08.08.2008 09:24:57
Thread-ID: 1000177
15 Beiträge
Makro für Drucken
Walter

Liebe Excelfreunde,
Trotz vieler Versuche bekomme ich es nicht hin.
Ich möcht nach anklicken des Button "DRUCKEN" die Ladeliste bis zum letzten Eintrag drucken.
Nach anklicken de Button "LÖSCHEN" sollen alle Eingabe aus der Eingabeliste gelöscht werden.
Bitte um Euere H I L F...
09.08.2008 13:00:26
Thread-ID: 1000478
12 Beiträge
Makro ohne Pfadbezug erstellen.
George

Hallo,
Ich würde gerne eine Analysefunktion mit immer gleichem Zellenbereich in verschiedenen Dateien (immer gleicher Aufbau) per Makro ausführen. Wenn ich eine neue Datei öffne, will sich das böse Makro immer auf den Pfad der Datei beziehen, mit der das Makro erstmalig erstellt wurde. Ande...
11.08.2008 08:46:50
Thread-ID: 1000712
3 Beiträge
Worksheet-Change Makro
David

Hallo zusammen.
ich wollte folgendes Makro ausführen lassen:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target = Left(Target, Len(Target) - 1) End If End Sub
Der Zweck ist, nach jeder Eingabe in der Spalte A diese Eingabe um eine Stelle zu kürze...
11.08.2008 12:03:41
Thread-ID: 1000788
3 Beiträge
Anzeige
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Makro läuft nicht
alifa

Hallo VBA Gemeinde,
obwohl nur zehn Ziffern, kommt die Meldung: Überlauf. Habe schon alles versucht, Currency, Double. Long hört bei mir bei 2147483467 auf. Decimal nimmt er irgendwie nicht an. Kann jemand helfen?
Sub Alifa() Dim a(0 To 9) As Byte, i As Byte, t As Single For i = 0 To...
11.08.2008 17:39:00
Thread-ID: 1000935
7 Beiträge
Makroerweiterung
mike49

Hallo zusammen,
ich habe einen Arbeitszeitnachweis, der in Vormittags- und Nachmittagsarbeitszeit untergliedert ist.
Die Anfangszeit am Vormittag wird in E8:E38 und die Endzeit in F8:F38 eingetragen. Die vom Nachmittag in G8:G38 bzw. H8:H38. Die Arbeitsdauer wird z.B. in I8 eingetragen...
12.08.2008 20:42:46
Thread-ID: 1001306
3 Beiträge
Liste per Makro vervollständigen - HELP!
stephan

Hallo Zusammen,
Ich habe eine riesige Excelliste, die leider noch angepasst werden muss um sie Pivot-Table tauglich zu machen. Hier nun mein Problem:
Liste:
Name Ergebnis
A 1
leer 2
leer 5
leer 6
B 5
leer 4
leer 3
leer...
13.08.2008 09:50:13
Thread-ID: 1001399
9 Beiträge
Auswahlfenster mit Makroverknüpfung
Charly

Sehr geehrte Damen und Herren!
Für folgende Anwendung suche ich eine Lösung:
Im Excel-Auswahlfenster sind verschiedene Wörter angeführt. Bei Auswahl
eines Wortes soll ein VBA-Makro aktiviert werden. Gibt es dafür einen
Möglichkeit?
Für die Antworten besten Dank im Voraus.
14.08.2008 10:38:30
Thread-ID: 1001759
4 Beiträge
Makros zusammenfügen
Tom

Hallo,
ich habe folgende u.a. Codes. Ich möchte nun, dass diese Codes als ein Makro ablaufen. Aber nicht als Worksheet_Activate sondern nach Betätigung eines Buttons (MAkro zuweisen). Da ich in VBA nicht der Held bin und mir diese Codes zusammengebastelt habe, benötige ich die Hilfe von Pro...
14.08.2008 10:40:00
Thread-ID: 1001761
13 Beiträge
Formatierung mit Makro läuft nur bei Eingabe
Ulrich

Hallo zusammen,
ich möchte Zellen einfärben, wenn in einer anderen Zelle der Wert "1" steht, und bei "0" wieder weiß - deswegen mit unten stehendem Makro im Tabellenblatt.
Das Problem ist, dass die Werte (0 und 1) per Formel erzeugt werden, und das Makro nur funktioniert, wenn ich tatsä...
14.08.2008 11:34:00
Thread-ID: 1001783
8 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