Ich habe bereits versucht die Variable als "Public" zu deklarieren, doch ist sie bei der Rückkehr aus dem UserForm in das Arbeitsbaltt leider leer.

An alle Visual Basic Experten :P

Habe in Excel ein Makro geschrieben, das mir in verschiedenen Spalten Inch in mm umrechnet und die nicht gewünschte Einheit ausblendet.

Nun habe ich die Funktion aber nur für die Zeile A... :( Kann mir jemand sagen wie ich sich die Funktion nun auf die anderen Zeilen übertragen lässt ?

Mein Makro sieht wie folgt aus:

Sub Schaltfläche1_KlickenSieAuf()

Range("T3") = (Range("S3").Value * (254 / 10))

Range("V3") = (Range("U3").Value * (254 / 10))

Range("R3") = (Range("Q3").Value * (254 / 10))

Range("O3") = (Range("N3").Value * (254 / 10))

Range("J3") = (Range("I3").Value * (254 / 10))

Range("H3") = (Range("G3").Value * (254 / 10))

Range("F3") = (Range("E3").Value * (254 / 10))

Columns("U").Hidden = True

Columns("S").Hidden = True

Columns("Q").Hidden = True

Columns("N").Hidden = True

Columns("I").Hidden = True

Columns("G").Hidden = True

Columns("E").Hidden = True

Columns("F").Hidden = False

Columns("H").Hidden = False

Columns("J").Hidden = False

Columns("O").Hidden = False

Columns("R").Hidden = False

Columns("T").Hidden = False

Columns("V").Hidden = False

End Sub

Bin für jede Antwort dankbar. PS: ist mein erstes Makro :) wäre also nett , wenn die Lösung verständlich wäre :D

Ich muss bei meiner Arbeit viele PDF-Dateien erstellen und abspeichern. Gibt es die Möglichkeit diesen Vorgang zu vereinfachen? Z.B. einen Button, durch dessem Klick die Datei automatisch als PDF gedruck wird?

Hallo. Ich habe mir neulich die Nikon D5200 gekauft. Jetzt bin ich auf den Makro-Trip gekommen, habe jedoch keine Ahnung welches Objektiv für mich passt... Ich möchte ungern über 250 Euro ausgeben...

Was haltet ihr von diesem: http://www.amazon.de/Nikon-AF-S-DX-Micro-Nikkor-40mm/dp/B005C50H2Y/ref=sr_1_1?s=ce-de&ie=UTF8&qid=1433860144&sr=1-1&keywords=makro+objektiv+f%C3%BCr+nikon

oder von diesem: (als Kommentar hinzugefügt)

Hey leute Ich habe mal eine Frage und zwar was sind Makros in Minecraft? Ich glaube das man es so schreibt. Ist das nicht das man schneller klicken kann? Weil ich habe auf meiner Maus eine Doppel klick taste. Sind die erlaubt?

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If
    

End Sub

Moin,

ich brauche ein Makro um folgendes zu Erstellen.

Ich möchte ein Excel Blatt Bsp. 10 mal Drucken, dort soll beim Drucken immer die fortlaufende Zahl stehen. Bisher tragen wir die Zahlen immer Manuell ein und dies ist zu arbeitsaufwendig :-( Wir sind jetzt auf Blatt 770, wenn ich jetzt sofort 10 Seiten hintereinander Drucke soll das letzte Blatt Seite 780 in der Zelle L1 stehen.

Ich hoffe ich konnte mich gut genug ausdrücken.

Ich danke euch für die Hilfe :-)

Hallo, ich habe ein Makro, welches eine Excel Tabelle nach bestimmten Vorgaben formatiert. Dabei durchsucht es Spalte A nach doppelt vorkommenden Sachnummern und hinterlegt die gesamte Zeile grau wenn denn solche auftauchen.

Es kann aber vorkommen, dass nach doppelt vorkommenden Sachnummern direkt wieder doppelte Sachnummern angezeigt werden. Jetztz suche ich nach einer Möglichkeit, diese dann in einer anderen Farbe zu hinterlegen. Wie unten beispielhaft dargestellt, würden die Zeilen A5:A9 grau hinterlegt. Das Ziel wäre jetzt, dass Zeilen A5:A7dunkelgrau und A8:A9 hellgrau hinterlegt werden. Ich hab keine Idee, wie man so etwas anstellen könnte.

1. Spalte A
2. V
3. L
4. O
5. H
6. H
7. H
8. S
9. S

Danke schon mal an alle die sich die Zeit nehmen zu Antworten

Hallo zusammen,

ich habe fürs Geschäft eine Excel-Datei erstellt, in der man nur die Auftragsnummer eingeben muss und automatisch die Kundendaten in bestimmten Zellen auftauchen.

Ich würde gerne die Kundendaten ein eine Tabelle übertragen und wenn ich dann die nächste Auftragsnummer eingeben, sollen die Daten wieder in die Tabelle übertragen werden, aber nicht die vorherigen Kundendaten überschreiben, senden darunter eingefügt werden. Hat jemand eine Idee?

Hallo Zusammen, Ich habe erst gestern begonnen zu versuchen mich ein wenig in Makro einzuarbeiten hab dementsprechend nicht allzu viel Ahnung. . Ich habe in meiner Tabelle Statistiken zu der Kursentwicklung mehrerer Aktien, Also z.B. 1 Aktie, 1. Spalte: Datum, 2.Spalte: Kurs zu diesem Datum usw. Ab Spalte Q beginnt das gleiche dann für Aktie 2, ab Spalte AG dann Aktie 3 usw. Jetzt will ich dass diese Daten untereinander stehen. Also dass unter den Daten von Aktie 1 eine Zeile freigelassen wird und dann die Daten von Aktie 2 kommen. Ich muss dazu also für Aktie 2 die Spalten Q-AF und die Zeilen 1-89 kopieren und das ganze einfügen in Zelle A91. Ich hab mal bissel rumprobiert und habe mir dieses Makro zusammengeschustert: Sub neu()

'** Ermittlung der letzten Spalte in Zeile 1 ls = Cells(1, Columns.Count).End(xlToLeft).Columns.Column '** Durchlauf aller Zeilen Dim s As Integer For s = ls To 1 Step -1 'Zählung rückwärts bis Spalte 1 '** Abfragen, ob in der ersten Spalte Datum steht If Cells(1, s).Value = "Date" Then '** Wenn Datum steht dann soll die Range ab Datum 90 Zeilen nach unten und 17 Spalten nach rechts kopiert werden Range(Cell(1, s), Cell(90, s & 17)).Select

Selection.Copy

Range("A65536").End(xlUp).Paste End If

Next s End Sub

Leider funktioniert das so offensichtlich nicht. Würde mich freuen, wenn mir jemand helfen könnte. Danke schonmal im Voraus

Hallo :)

Ich muss gestehen, ich habe leider gar keine Ahnung von Makros in Excel und würde gern wissen, wie man ein Makro schreibt, das nur Zellen mit roter Füllfarbe in ein neues Blatt kopiert werden?

Im Anhang ein Screenshot, zur darstellung meines Problems:

Die rot markierten Zeilen hätte ich gern in ein neues Tabellblatt kopiert um sie dort dann weiter verarbeiten und auswerten zu können.

Ich weiß auch nicht, ob es möglich ist, dass dies dann immer automatisch gescheht sobald ich eine Zeile rot markiere.

Vielen Dank euch im Vorraus :)

Ich spiele Shooter und wollte machen, dass wenn ich die linke Maustaste klicke (Schießen) dann soll das wie ein MG ablaufen. Z.B. Ich habe ne Pistole und müsste bei jedem Schuss klicken. Stattdessen will ich lieber die Maustaste drücken und halten und im Spiel soll es dann so schnell es geht die Maus betätigen, dass es sehr schnell schießt.

Wie mache ich das?

Hallo, ich habe mir zu Weihnachten ein Makro Objektiv gewünscht, weil ich gerade diesen Bereich so interessant finde. Die ganze Zeit konnte ich mich zwischen dem oben genannten, und dem Tamron 90mm Makro nicht entscheiden, also hat mir mein Vater die Entscheidung abgenommen, weil es ja ein Geschenk werden sollte, und raus kam dabei das Sigma. Nun habe ich heute mal draußen ein wenig fotografiert. Fazit: Weder ohne, noch mit Stativ konnte ich gestochen scharfe Bilder erzielen. Den OS hatte ich eingeschaltet, hatte es aber auch mal ohne ausprobiert. Jetzt verstehe ich irgendwie nicht, warum das nicht funktioniert? Vorher dachte ich noch: Ok, aus der Hand ist eh schwierig, weil meine nicht die ruhigsten sind. Voller Hoffnung dann das Stativ angebracht, die Bilder anschließend angeguckt und festgestellt: Es ist zwar ein wenig besser, aber von dieser so tollen, angepriesenen Schärfe der Bilder, wie es im Internet oft steht, ist für mich nichts zu sehen..

Hat irgendjemand ähnliche Erfahrungen gemacht? Weil für diese ca.400€ bin ich im Moment schon echt ziemlich enttäuscht..

Hier mal ein Beispielbild, wie das oft auf den Bildern aussieht. Das Bild wurde mit Stativ gemacht. (Klar war es ein bisschen windig, aber ich habe meist einen ruhigen Moment abgewartet. Jedoch sollte ja der OS Verwacklungen verhindern?! Und mit meinem anderen Objektiv Canon EF-S 55-250mm 4,0-5,6 IS II hat aus der Hand auch immer alles super funktioniert. Deshalb nun diese Frustration, vor allem für den Preis..)

http://img5.fotos-hochladen.net/uploads/img2256je3mkq1ig4.jpg

Ich würde mich sehr über Antworten freuen :(

Ich will mir nächstes jahr die Nikon D5200 kaufen. Da ich sehr gerne Makroaufnahmen mache, wollte ich euch mal fragen, welches der Objektive ihr empfehlen könnt:

TAMRON 90mm F/2,8 Macro : http://www.mediamarkt.de/mcs/product/TAMRON-90mm-F-2-8-Macro-Di-VC-USD-Nikon,48353,464109,918366.html?langId=-3

oder (Objektiv mit Link im nächsten Kommentar)

Ich habe ein Problem mit den makroeinstellungen bei der sharkoon skiller pro hier steht immer wenn ich aufnehmen will bitte erst makro auswählen bitte schnell um antwort Danke

 Dim arrSuchbegriff, i&
 arrSuchbegriff = Array("Suchbegriff1", "Suchbegriff2", "", "SB3")

 For i = LBound(arrSuchbegriff) To UBound(arrSuchbegriff)
     ActiveSheet.Columns("A").Replace arrSuchbegriff(i), "###@@@###", xlPart, MatchCase:=False
 Next i
 ActiveSheet.Columns("A").AutoFilter Field:=1, Criteria1:="*###@@@###*"
 ActiveSheet.Cells.Delete

Das Makro klappt, allerdings löscht es mir nur die Zelle in der der Begriff enthalten ist, und nicht die komplette Zeile. Kann jemand helfen? Viele Grüße

Hallo liebe Excel Freunde,

ich habe folgende Frage. Ich habe eine Tabelle mit einer Reihe von Tagen. Nun möchte ich in meinem Makro aber prüfen, dass wenn in der Zeile eine Zelle mit Sa oder So steht, dass es mit dann Die Spalte der Zelle farbig markiert. Weiß jemand wie dass geht, und gibt mir mal nen kleinen Denkanstoß?

Hallo,

ich brauche dringend Hilfe bei der Programmierung eines Makros in Excel. Ziel soll es sein Zeilen (Spalte B) aus Tabellenblatt1 x-mal (Zahl, die in Spalte A steht) in Tabellenblatt2 zu kopieren. Hier ein Beispiel, wie ich das meine:

Tabellenblatt 1:
Spalte A..... Spalte B
3................. Katze
2................. Vogel
4................. Hund

Ziel in Tabellenblatt 2:
Spalte A
Katze
Katze
Katze
Vogel
Vogel
Hund
Hund
Hund
Hund

Ich hab schon vieles probiert und es u.a. geschaft ganze Spalten mit Hilfe eines Makros von Tabellenblatt1 in Tabellenblatt2 zu kopieren, also z.B. Spalte A aus Tabellenblatt1 in Spalte A des Tabellenblattes2. Oder auch eine Zelle (A1) entsprechend der angegebenen Zahl (in Spalte A) darunter x-mal einzufügen. Aber ich schaffe es nicht, dass die Zelle in Spalte B in Abhängigkeit vom Wert, der in Spalte A steht, x-mal in einem neuen Tabellenbaltt einzufügen.

Ich brauche das Makro für die Arbeit, um die Erstellung von Rechnungen zu vereinfachen.

Ich freue mich über jede Hilfe und hoffe, dass mir jemand mit der Programmierung helfen kann. Excel-VBA für Dummies war mir bisher leider keine groe Hilfe :(

Hallo

Ich habe eine Excel Datei mit Makros bekommen. An meinem Mac funktioniert diese wunderbar. Wenn ich aber die Datei speichere (.xls oder .xlsm) und diese dann an einem Windows Rechner öffne, wurden alle Umlaute in VBA (Im Code und Namen) geändert.

Ich wiederum kann diese Datei problemlos am MAC öffnen und bearbeiten. Alles wird korrekt dargestellt. Hat jemand eine Idee, wie man dieses Codierungsproblem lösen kann.

Danke für Eure Hinweise....

Hallo,

Ich suche nach einer Möglichkeit mit meiner EOS 550D extreme Nahaufnahmen zu machen. Ich habe im Anhang Bilder angehängt. Solche Bilder möchte ich auch machen. Ich besitze zu meiner Canon ein Canon EFS 18-135mm Objektiv.

Wie bekomme ich solche Fotos hin? Brauche ich ein Makroobjektiv für solche Bilder wie ich sie angehängt habe? Wenn ja könnte mir bitte jemand eins empfehlen, was im günstigsten Fall auch noch erschwinglich ist und einen Schüler nicht komplett Arm macht, sprich 700€ oder ähnliches? Das wäre sehr hilfreich.

Wie sieht es mit Zwischenringen aus, was bewirken die und kriegt man damit auch solche Ergebnisse wie im Anhang?

Ich bin Anfänger und möchte unbedingt im Super-Makro Bereich sprich extreme Nahaufnahmen von Insekten und Blumen etc. durchstarten! Ich würde mich über Hilfe sehr freuen

Lg