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. Beliebigen Wert per VBA in ein Tabellenfeld schreiben. 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
Als Ereignis zur Übertragung der Daten würde ich eine Schaltfläche wählen Freue mich über jede Anregung gruß mitch ************************************************************ 02. 2018, 21:49 # 13 Excel VBA Werte nach Suchkriterien in Tabelle speichern End Sub
05. 2015 aus: "Guten Morgen Susi! Heute ist der 12. 2015. " Den Benutzernamen kannst Du auch vom Computer abfragen. Dazu verwendest Du die Funktion "Environ". Das Makro würde dann so aussehen: Sub VarDekla4() strNutzer=Environ("UserName") MsgBox ("Guten Morgen " & strNutzer & "! Heute ist der " & "" & datTag & "" & ". ") Wenn Dein UserName "Susi" ist, gibt die MsgBox am 12. 2015 "Guten Morgen Susi! Heute ist der 12. " aus. Statt die Ausgabe über eine MsgBox vorzunehmen, ist es auch hier möglich, den Begrüßungstext in eine Zelle zu schreiben. Sub VarDekla5() Range("A21″)=""Guten Morgen " & strNutzer & "! Heute ist der " & "" & datTag & "" & ". " Versuche doch selbst einmal, Variablen zu deklarieren und sie in kleinen (oder auch großen) Makros zu verwenden. Schreibe Deine Erfahrungen damit bzw. Fragen, die offen geblieben sind, in einen Kommentar zu diesem Artikel. Excel VBA - Schreiben in eine Zelle (Range, Cells) — CHIP-Forum. Hier noch eine ergänzende Datei. Variablendeklaration
Verfasst am: 17. Dez 2013, 18:23 Rufname: Die abfragen Zellen wandern mit dem lRow mit. In der Tabelle "Auftragseingang" wird ein Datensatz per UserForm eingeschrieben. Dann werden in den Spalten R bis T die Verfgbarkeit der Maschine abgeprft. In der Tabelle Hilfsberechnung wird dann geprft ob der Auftrag auf der Maschine laufen darf ("zeitlich") und die Restriktionen werden geprft, die Vorher in R bis T ermittelt wurden. Habe den Code so umgeschrieben auf Cells. Jetzt funktioniert er schon mal, allerdings gibt er mir, noch nicht die Richtige Antwort. Der Auftrag muss bsp. geliefert werden 23. 12. 2013, die Maschine ist aber erst wieder am 01. 01. 2014 frei. Dementsprechend sollte ein Nein als Antwort stehen. Der Code gibt aber dann ein Fertigstellungsdatum aus. Wert in zelle schreiben vba. If Sheets("Auftragseingang")(lRow, 18) = "Nein" And Sheets("Auftragseingang")(lRow, 19) = "Nein" And Sheets("Auftragseingang")(lRow, 20) = "Nein" And Sheets("Hilfsberechnung")(lRow, 2) / 24 + Sheets("M1")(2, 4) > Sheets("Auftragseingang")(3, 10) Then (lRow, 3) = Sheets("Hilfsberechnung")(lRow, 2) / 24 + Sheets("M1")(2, 4) Verfasst am: 17.
Bis später, Karin Hi Beverly, ich hab es nun so verucht: If stIndex = -1 Then Auswahl2 = Else (stIndex) = Auswahl2 End If Das ist aber auch nicht wirklich die Lösung... Zuletzt bearbeitet: 9. Dezember 2015 Ahhhh ich habs otzdem Danke! Du solltest deine Lösung posten - dann können andere User mit einer ähnlichen Frage auch davon profitieren.
Verfasst am: 17. Dez 2013, 18:05 Rufname: OK, der Fehler lag bei mir. Wenn Du nach meiner Schreibweise weiterarbeitest, kannst Du nicht mehr mit RC arbeiten. Die Anweisung: If Sheets("Auftragseingang")("RC18") = "Nein" bedeutet in diesem Fall: Wenn in Tabelle "Auftragsbesttigung" in Zelle "RC18" das Wort "Nein" steht dann... mit sprichst Du also eine ganz bestimmte Zelle an. Dann gibt es noch die Sheets("Auftragseingang")(3, 5) wre die Zelle E3, denn in den Klammern von Cells steht erst die Zeilennummer und dann die Spaltennummer. lRow hat den Zahl der Zeilennummer der ersten freien Zeile bekommen Die Zelle in der ersten freien Zeile und Spalte 3 (also Spalte C) bekommt den Wert "Nein" zugewiesen. Du msstest jetzt also mal sagen, welche Zellen Du in "Auftragseingang" und "Hilfsberechnung" abfragst. Sind das immer die Gleichen, kannst Du normal mit Range arbeiten. Wandern die abzufragenden Zellen mit Deinem Wert lRow, musst Du mit Cells weiterarbeiten. Makro soll Wert in Zelle schreiben - - - - - Office-Loesung.de. Also versuche doch mal fr einen Durchlauf genau zu schildern, welche Zellen geprft werden sollen.
Stempelglanz 10 DM 2001 F 10 DM, 50 Jahre Bundesverfassungsgericht, 2001 F, in Originalverpackung! PP 10 DM 2001 Deutschland, Numisblatt 3/2001 mit 10-Mark-Münze Bundesverfassungsgericht Numisblatt 13, 90 EUR 5x 10 DM 2001 ADFGJ 50 Jahre Bundesverfassungsgericht PP 74, 00 EUR zzgl. 5, 00 EUR Versand Lieferzeit: 11 - 12 Tage Artikel ansehen Tietjen Lieferzeit gilt für Lieferungen nach Deutschland
2022 10 Mark 2001 - 50 Jahre Bundesverfassungsgericht - Silber Ø 32 mm 10 D-Mark 2001 Motiv "50 Jahre Verfassungsgericht" Buchstabe G Gewicht ca. 15, 5... 10 € 74889 Sinsheim 04. 2022 Numisblatt 3/2001, 50 Jahre Bundesverfassungsgericht Original der deutschen Post mit 10 Deutsche Mark, Silbermünze, 925 Silber Versand 1, 80 Euro 13 € 26122 Oldenburg 02. 2022 5 Gedenkmünzen Silber 925 - 50 Jahre Bundesverfassungsgericht Gedenkmünzen im 5er Blister "50 Jahre Bundesverfassungsgericht" in... 55 € 45657 Recklinghausen 28. 11. 2021 10 DM Münze 50 Jahre Bundesverfassungsgericht 925er Silber 2001 Verkapselt Aus dem Fundus eines Erbes viele Münzen zu verkaufen - werden nach und nach... 35 € Numisblatt 3/2001: 50 Jahre Bundesverfassungsgericht ich biete an das komplett mit 10 DM -... 21244 Buchholz in der Nordheide 14. 05. 2021 10-DM-Gedenkmünze, 50 Jahre Bundesverfassungsgericht 10-DM-Gedenkmünze, 50 Jahre Bundesverfassungsgericht, 1951 - 2001, Numisblatt mit damaligen... 18 € 13435 Reinickendorf 19.
9. 1997, Donnerstag Rom: Italiens Ministerpräsident Romano Prodi erklärt seinen Rücktritt, da die Kommunisten, auf deren Unterstützung er im Abgeordnetenhaus angewiesen ist, seinem Sparhaushalt die Zustimmung verweigern. Acapulco: Der Hurrikan "Pauline" richtet an der südmexikanischen Pazifikküste schwere Verwüstungen an. 1997, Freitag Bonn: Der Bundestag billigt gegen die Stimmen der Opposition die Rentenreform. 11. 1997, Samstag München: Arnold Schwarzenegger und andere Showstars kommen zur Eröffnung des "Planet Hollywood"-Restaurants in Bayerns Metropole. Hannover: Mit einem 4:3-Sieg gegen Albanien sichert sich die deutsche Fußball-Nationalelf die Teilnahme an der Weltmeisterschaft 1998. 12. 1997, Sonntag Berlin: Mit einem Festakt begeht der 1847 in Berlin gegründete Elektrokonzern Siemens sein 150-Jähriges Bestehen. 13. 1997, Montag Belfast: Erstmals treffen der britische Premier Tony Blair und Sinn-Féin-Chef Gerry Adams zusammen. Es ist das erste Treffen dieser Art seit der Teilung Irlands im Jahr 1921.