Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
25.09.2025 14:32:49
Excel-Dateien zusammen führen (Tabellen)
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wie werde ich die Select los?

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten 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
findet nicht die richtigen werte
josef

Hallo!!
Bitte um Eure Hilfe, ich stehe total an!
mittels des Makro "finden" sollen die Beträge der gewünschten Bauvorhaben (BVH), wenn sie mehrmals auftreten zusammengezählt werden und dann für weitere Arbeiten in eine Variable eingelesen werden.
https://www.herber.de/bbs/user/5541...
16.09.2008 08:30:00
Thread-ID: 1009948
9 Beiträge
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
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
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 nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Wie kann ich die Formel verbinden
walli

Guten Abend,
wie kann man diese Fehler zusammen verbinden.
If Zeile > 5 And LoletzteA > 5 Then Range("A" & Zeile & ":M" & LoletzteA).EntireRow.Delete
Ich möchte das die Formatierung ebenfalls direkt
mit durchgeführt wird.
So habe ich aufgezeichnet: Interio...
29.03.2010 20:55:37
Thread-ID: 1149211
11 Beiträge
wenn / und Verknüpfung mit 3 Bedingungen
L.Maack

Hallo Excel Profis, ich benötige Hilfe bei einer wenn/und Funktion mit 3 Bedingungen.
Ich habe ein Excel Sheet bei mir zu Hause mit Excel 2003 erstellt. Dort klappt meine aufgebaute Funktion auch. Im Büro habe ich das selbe Sheet mit 2007 geöffnet und meine Funktion klappt weiterhin. Wenn...
20.05.2010 14:45:29
Thread-ID: 1158097
4 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