Kleine Sektflaschen Hochzeit
Ich bitte das Doppelposting zu entschuldigen. Ich habe diese Frage auch schon in der Newsgroup gestellt, stelle aber gerade fest, dass diese wohl relativ tot ist. Antworten hi Patrik, Leider macht "Wert" immer wieder Probleme wenn darin ein Punkt (. ) oder ein Komma (, ) vorkommen. Oder ein '. Das Problem ist eigentlich keines da du deinen Wert als String schon übergibst. Daher musst du immer deinen Wert in Hochkommata einschliesen: Wertname = "'" & Replace(Wertname, "'", "''") & "'" Wert = "'" & Replace(Wert, "'", "''") & "'" strUserID = "'" & Replace(strUserID, "'", "''") & "'" strSQL = _ "INSERT INTO GlobaleVariable (Wertname, Wert, UserID) " & _ "VALUES (" & Wertname & ", " & Wert & ", " & strUserID & ");" Microsoft MVP Office Access Als Antwort markiert Donnerstag, 24. Februar 2011 17:02
Grundlegend möchte ich das "Tool" per 3. Tabelle öffnen (Speicherorte sollen... VBA Listboxauswahl - bestimmte Werte Eintrag in ausgewählten Blättern in Microsoft Excel Hilfe VBA Listboxauswahl - bestimmte Werte Eintrag in ausgewählten Blättern: Guten Tag, ich habe eine Datei mit ca 180 Blättern (ein Blatt pro Kunde) die auch durch andere Makros erweitert werden wenn neue Kunden angelegt werden. Das erstellen der Listbox im VBA Editor... Zellinhalt als Wert einfügen (VBA) in Microsoft Excel Hilfe Zellinhalt als Wert einfügen (VBA): Hallo zusammen, ich habe wieder einmal ein kleines Makro-Problem, bei dem ihr mir sicher helfen könnt. Ich habe schon im Netz geschaut, aber alle dort vorgeschlagenen Lösungen wollen bei mir... VBA Werte aus Tabellenblätter kopieren WENN in Microsoft Excel Hilfe VBA Werte aus Tabellenblätter kopieren WENN: Hallo zusammen, Meine Ausgangssituation: Verschiedene Registerkarten mit Materiallisten, je nach System. Ganz vorne eine Übersichtsregisterkarte, in welcher die Systeme und Anzahl ausgesucht... VBA Code ändern um Werte richtig zu holen in Microsoft Excel Hilfe VBA Code ändern um Werte richtig zu holen: Hallo Zusammen, würde mir bitte jemand das unten stehende Code sozusagen übersetzen?
Hallo Community, habe vor kurzem erst angefangen ein Problem mit Excel VBA zu lösen. (Excel2010) Problem: Ein Benutzer soll Zahlen in einer Zeittabelle pro tag eingeben können, wobei pro Tag geprüft werden soll, ob die Regelarbeitszeit von 8h überschritten wurde. Ist das der Fall, dann soll in einer Zelle "Überstunden" der vorhandene Wert der bisherigen Überstunden aufsummiert werden. Ich scheitere an der Stelle, wo ich in die Zielzelle einen Wert schreiben möchte... Frage: soll das nur Schreiben(Update) des Wertes "Überstunden" per Function oder Sub erreicht werden? Was mache ich falsch wenn ich einfach folgendes sagen will: Range("B8") = 123 <-- soll doch bedeuten, dass ich den Wert "123" in die Zelle "B8" schreiben möchte, oder nicht?! Danke im Voraus für eure Hilfe!! MFG Thommy
Das sieht dann in etwa so aus: Code: With Worksheets("Hilfsberechnung") If Sheets("Auftragseingang")("RC18") = "Nein" And Sheets("Auftragseingang")("RC19") = "Nein" Then (lRow, 3) = "Nein" Else (lRow, 3) = "Ja" End If Ich habe jetzt nicht verstanden was Du fr Bedingungen haben willst, aber das solltest Du ja auf den Code anpassen knnen oder Du schreibst das nochmal genau auf. Gru Sven. Verfasst am: 17. Dez 2013, 17:00 Rufname: Hallo Sven, danke fr die schnelle Antwort, werde meinen Code nach dem Muster unten schreiben. Das hrt sich besser an, anstatt immer wieder die Funktion in die Zelle zu schreiben und dann erst den Wert rauskopieren. Gru P. S: Die Bedingungen sind zum Abprfen da ob ein Auftrag auf einer Maschine laufen darf oder nicht Verfasst am: 17. Dez 2013, 17:16 Rufname: Ich muss mich doch korrigieren, habe jetzt das Ding so angepasst wie ich es denke das es laufen msste und getestet, aber es luft nicht wirklich. If Sheets("Auftragseingang")("RC18") = "Nein" And Sheets("Auftragseingang")("RC19") = "Nein" And Sheets("Auftragseingang")("RC20") = "Nein" And Sheets("Hilfsberechnung")("RC[-1]") / 24 + Sheets("M1")("R2C4") > Sheets("Auftragseingang")("R3C10") Then (lRow, 3) = Sheets("Hilfsberechnung")("RC[-1]") / 24 + Sheets("M1")("R2C4") Was mache ich falsch bzw. wo liegt der Fehler?
Eine SUMMEWENN-Funktion berücksichtigt zwar Kriterien und bildet bei Erfüllen dieser die Summe der jeweiligen Werte, beispielsweise die Zellfarbe kann allerdings nicht ohne weiteres als Kriterium erkannt und berücksichtigt werden. Dazu benötigt es einen zusätzlichen Schritt, welchen wir in diesem Beitrag betrachten: Im Menüband gehst Du unter "Formeln" auf "Name definieren". Gib dort als Name "Farbe" ein - dies ist später der Name einer Formel, welche wir in eine Hilfsspalte eingeben werden (Du kannst daraufhin " =Farbe " in eine Zelle eingeben). Bei "Bezieht sich auf" gibst Du folgendes ein: =ZELLE. ZUORDNEN (63;INDIREKT(" ZS(-1)";)) Zusammengefasst sieht Dein definierter Name wie folgt aus: [Der Bezug ZS(-1) ist ein Referenzbezug: Dieser bedeutet, dass Du auf die selbe Zeile (Z), allerdings auf eine Spalte (S) nach links (-1) zugreifst. ] Wenn Du nun eine Spalte rechts Deiner farbigen Zelle " =Farbe " eingibst, wirst Du eine Zahl erhalten - diese bezieht sich auf die Zellfarbe. Wenn Du die Zellfarbe änderst, wird sich auch das Resultat in der Zelle nebenan verändern, sobald Du die "=Farbe"-Formel aktualisierst (oder F9 auf der Tastatur zur Kalkulation des gesamten Tabellenblatts drückst).
Diese haben keine Auswirkung auf den Ablauf der Prozedur. Schreibe nun im Modul "mdlVar" folgenden Code: Sub VarDekla1() Dim intWert As Integer ' eine Variable vom Typ Integer wird deklariert inWert=25*81 ' Zuweisung einer Berechnung zur Variablen MsgBox ("Der Variablenwert beträgt: "&intWert) ' Ausgabe des Wertes der Variablen End Sub Verlasse die VBA-Ebene mit Alt + Q. Lege dann über Entwicklertools / Einfügen wieder eine Schaltfläche an, weise das Makro zu und klicke auf die Schaltfläche. Die MsgBox gibt das Ergebnis 2025 aus, das ist richtig. Beispiel 2 Im ersten Beispiel hast Du der Variablen harte Werte zur Berechnung zugewiesen. Jetzt sollen beide Multiplikatoren auch variabel werden. Dazu sind zwei weitere Variablen zu deklarieren. Die (variablen) Werte für die Variablen suchst Du z. über Drehfelder. Das Makro schreibst Du jetzt bitte so: Sub VarDekla2() Dim intWert As Integer ' Variablen deklarieren Dim intZahl1 As Integer Dim intZahl2 As Integer intZahl1=Range("G3") ' Werte zuweisen inZahl2=Range("G9") intWert=intZahl1*intZahl2 MsgBox ("Der Variablenwert beträgt: "&intWert) ' Variablenwert ausgeben Verlasse die Umgebung mit Alt + Q, lege eine Schaltfläche an und klicke sie an.