Hallo Leute,
ich bin neu hier im Forum und hoffe ich schreibe meinen Beitrag ins richtige Thema.
Und zwar bin ich dabei mittels Google Tabellen (Spreadsheet) eine Tabelle entworfen, da Google hier allerdings keine Makros via VBA nutzt, musste ich mir zunächst mit Excel weiterhelfen. In Excel habe ich nun einen VBA-Code erstellt und versuche den nun in meine Google Tabelle mittels Googles Script, was auf Java basiert, einzubinden.
Ich hoffe hier erst einmal rauszufinden ob es grundsätzlich möglich ist, mittels Javascript ähnliche Makros zu schreiben wie in VBA.
Folgendes Problem habe ich:
Wenn in Tabellenblatt 2 (Antworten Formular) ein Wert in einer Zeile eingegeben wird, der noch nicht verwendet wurde, soll dieser Wert automatisch in Tabellenblatt 1 (Wochenbericht) am Ende der Liste eingetragen werden.
z.B. Wert in C14 (Petra Rüdiger) ist in Tabellenblatt 2 neu und soll somit automatisch in die Liste im Tabellenblatt 1 in Zelle A11 übertragen werden.
Folgender Code wurde mit VBA geschrieben:
Die Datei konnte leider nicht angehängt werden.
Ich hoffe ihr könnt mir weiterhelfen.
Vielen Dank im Voraus.
Grüße
Oliver
ich bin neu hier im Forum und hoffe ich schreibe meinen Beitrag ins richtige Thema.
Und zwar bin ich dabei mittels Google Tabellen (Spreadsheet) eine Tabelle entworfen, da Google hier allerdings keine Makros via VBA nutzt, musste ich mir zunächst mit Excel weiterhelfen. In Excel habe ich nun einen VBA-Code erstellt und versuche den nun in meine Google Tabelle mittels Googles Script, was auf Java basiert, einzubinden.
Ich hoffe hier erst einmal rauszufinden ob es grundsätzlich möglich ist, mittels Javascript ähnliche Makros zu schreiben wie in VBA.
Folgendes Problem habe ich:
Wenn in Tabellenblatt 2 (Antworten Formular) ein Wert in einer Zeile eingegeben wird, der noch nicht verwendet wurde, soll dieser Wert automatisch in Tabellenblatt 1 (Wochenbericht) am Ende der Liste eingetragen werden.
z.B. Wert in C14 (Petra Rüdiger) ist in Tabellenblatt 2 neu und soll somit automatisch in die Liste im Tabellenblatt 1 in Zelle A11 übertragen werden.
Folgender Code wurde mit VBA geschrieben:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Prüfen, ob Wert vorhanden
With Sheets("Wochenbericht")
If .Cells.Find(What:=Target.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False) Is Nothing And _
Target.Column = 3 Then _
.Cells(.UsedRange.Rows.Count + 1, 1).Value = Target.Value
End With
End Sub
Die Datei konnte leider nicht angehängt werden.
Ich hoffe ihr könnt mir weiterhelfen.
Vielen Dank im Voraus.
Grüße
Oliver