Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wie werde ich die Select los?

wie werde ich die Select los?
14.03.2005 12:15:12
Peter
Hallo Excel Experten,
ich habe mir ein Makro aufgezeichnet und werde nun die SELECTS nicht los.
Excel behauptet immer es unterstütze die Methode nicht.
Wer beseitigt die Selects für mich?
Für eure Hilfe bereits vielen Dank im voraus.
Gruß Peter


Sub Shapes_transferieren()
'
' Shapes_transferieren Makro
' Makro am 14.03.2005 von Peter Feustel aufgezeichnet
'
    Application.CommandBars("Control Toolbox").Visible = True
    Sheets("Images").Select
    ActiveSheet.Shapes("Image1").Copy
    Sheets("Tabelle5").Select
    Range("F15").Select
    ActiveSheet.Paste
    Sheets("Images").Select
    ActiveSheet.Shapes("Label1").Copy
    Sheets("Tabelle5").Select
    Range("F21").Select
    ActiveSheet.Paste
    Sheets("Images").Select
    ActiveSheet.Shapes("Label2").Copy
    Sheets("Tabelle5").Select
    Range("H15").Select
    ActiveSheet.Paste
    Sheets("Images").Select
    ActiveSheet.Shapes("Label3").Copy
    Sheets("Tabelle5").Select
    Range("E15").Select
    ActiveSheet.Paste
    Sheets("Images").Select
    ActiveSheet.Shapes("Label4").Copy
    Sheets("Tabelle5").Select
    Range("F8").Select
    ActiveSheet.Paste
    Application.CommandBars("Control Toolbox").Visible = False
    Range("A1").Select
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: wie werde ich die Select los?
14.03.2005 12:28:34
Uduuh
Hallo,
nach diesem Schema:
Sheets("Images").Shapes("Image1").Copy
Sheets("Tabelle5").Paste
Selection.Top = Range("F15").Top
Selection.Left = Range("F15").Left
Gruß aus'm Pott
Udo

zumindest so:
14.03.2005 12:28:47
IngoG
Hallo Peter,
versuchs mal so...
Gruß Ingo

Sub Shapes_transferieren()
' Shapes_transferieren Makro
Application.CommandBars("Control Toolbox").Visible = True
Sheets("Images").Shapes("Image1").Copy
Sheets("Tabelle5").Range("F15").Paste
Sheets("Images").Shapes("Label1").Copy
Sheets("Tabelle5").Range("F21").Paste
Sheets("Images").Shapes("Label2").Copy
Sheets("Tabelle5").Range("H15").Paste
Sheets("Images").Shapes("Label3").Copy
Sheets("Tabelle5").Range("E15").Paste
Sheets("Images").Shapes("Label4").Copy
Sheets("Tabelle5").Range("F8").Paste
Application.CommandBars("Control Toolbox").Visible = False
'   Range("A1").Select
End Sub

Anzeige
AW: zumindest so:
14.03.2005 12:44:20
Peter
Hallo Ingo
in der Zeile 'Sheets("Tabelle5").Range("F15").Paste' steigt Excel mit Fehler 348 - Objekt unterstützt diese Eigenschaft oder Methode nicht aus.
Ich muss wohl meine Select behalten - schade.
Viele Grüße Peter
AW: dann so ;-) sorry my fault
14.03.2005 13:04:29
ingoG
Hallo nochmal,
stimmt nat.
folgende Lösung hat jetzt aber bei mir gefunzt
Gruß Ingo

Sub Shapes_transferieren()
' Shapes_transferieren Makro
Application.CommandBars("Control Toolbox").Visible = True
Sheets("Images").Shapes("Image1").Copy
Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("F5")
Sheets("Images").Shapes("Label1").Copy
Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("F21")
Sheets("Images").Shapes("Label2").Copy
Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("H15")
Sheets("Images").Shapes("Label3").Copy
Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("E15")
Sheets("Images").Shapes("Label4").Copy
Sheets("Tabelle5").Paste Destination:=Sheets("Tabelle5").Range("F8")
Application.CommandBars("Control Toolbox").Visible = False
'   Range("A1").Select
End Sub

Anzeige
AW: danke nun läuft es
14.03.2005 13:25:21
Peter
Hallo Ingo,
nun läuft es! Danke für die Hilfe
Viele Grüße Peter
Danke für die Rückmeldung oT
14.03.2005 14:34:20
IngoG
.
AW: wie werde ich die Select los?
14.03.2005 12:31:35
Volker
Hallo Peter,
statt
Application.CommandBars("Control Toolbox").Visible = True
Sheets("Images").Select
ActiveSheet.Shapes("Image1").Copy
Sheets("Tabelle5").Select
Range("F15").Select
ActiveSheet.Paste
....
ungetestet:
Application.CommandBars("Control Toolbox").Visible = True
Sheets("Images").Shapes("Image1").Copy
Sheets("Tabelle5").Range("F15").Paste
oder mit with:
with Sheets("Images")
.Shapes("Image1").Copy
end with
with Sheets("Tabelle5").Range("F15")
.Paste
end with
oder hast Du das schon versucht?
Gruß
Volker
Anzeige

241 Forumthreads zu ähnlichen Themen

Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Anzeige
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
Username und Uhrzeit mit Wenn-Dann?
Mario

Hallo zusammen,
ich habe schon so Einiges in Richtung Usernamen ermitteln usw. gelesen, bin aber nicht in der Lage, die Codes auf mein Problem hin anzupassen. Deshalb erhoffe ich mir nun hier Hilfe.
Wir haben im Team eine "offene-Punkte-Liste.xls", in die entsprechende Daten eingetragen...
30.06.2009 18:10:03
Thread-ID: 1085453
4 Beiträge
Wenn-Formel mit und + oder
Anton

hallo,
ich brauche mal eure hilfe. ich möchte mit einer formel verschiedene ergebnisse miteinander vergleichen und dabei nur eine formel verwenden.
es soll geprüft werden ob A1+A2 = C1+C2+C3 und = E1 oder E2+E3
verständlich?
danke für eure hilfe im voraus
anton
04.08.2009 12:25:51
Thread-ID: 1093466
24 Beiträge
Wenn-Befehl mit und / oder
Elmar

Hallo Experten,
kann mir jemand helfen?
Ich habe die Formel, die auch soweit klappt....
=WENN(UND(A11="Mo";P11="Feiertag");0;WENN(UND(A11="Di";P11="Feiertag");0;WENN(UND(A11="Mi"; P11="Feiertag");0;WENN(UND(A11="Do";P11="Feiertag");0;WENN(UND(A11="Fr";P11="Feiertag");0; WENN(A11="...
06.10.2009 13:45:19
Thread-ID: 1107539
10 Beiträge
Summewenn mit UND-Kriterium
Roland

Moin Ihr Spezialisten,
hab mal wieder ein Problem und finde einfach die Lösung nicht.
Ich möchte die Summe über die Spalte B erhalten, wenn der Wert in Spalte A in einer Art "Range" liegt, zb zwischen 50000 und 60000.
Versucht habe ich =summewenn(A:A;und(>=50000; Da erhalte ich...
03.12.2009 16:22:36
Thread-ID: 1121620
12 Beiträge
Wenn Formel in Verbindung mit Index und Vergleich
Helmut

Hallo Excel-Anwender,
ich muß einen Kostenberechnungsbogen entwerfen, der bei bestimmten Eingaben über entsprechende Auswahlfelder Werte aus zwei anliegenden Arbeitsblättern auswirft. Einige Formel habe ich aus einem bereits bestehenden Arbeitsblatt entnommen, wie z.B. die Ausgabe für die H...
14.01.2010 22:04:03
Thread-ID: 1130062
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Label

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
3
8
2
3
2
3
23
9
11
1
5
10
10
3
6
6
4
3
5
3
3
9
3
1
5