Dateneingabe und automatische Tabellenerzeugung
Moderator: Moderatoren
Dateneingabe und automatische Tabellenerzeugung
ich möchte auf einem Arbeitsblatt eine freidefinierbare Anzahl Kurzzeichen eingeben (max. 200) .
Danach soll auf einem zweiten Arbeitsblatt als erstes eines dieser Kurzzeichen auswählt werden können.
Anschließend soll eine Tabelle mit den übrig gebliebenen Kurzzeichen generiert werden. Für jedes dieser
Kurzzeichen sollen 4 Merkmale eingegeben werden können.
Nach Beendigung der Eingabe sollen diese Daten in ein drittes Arbeitsblatt überführt und richtig dargestellt
werden.
Ich habe mal eine Beispieldatei angehangen - allerdings ohne Funktionen
Ich bin eigentlich nur Anwender, kein richtiger Programmierer.
Jetzt habe ich folgende Fragen:
1. Ist Calc dafür überhaupt verwendbar? Oder Nuss hier mit einer Datenbank gearbeitet werden?
2. Wie hoch ist der Aufwand das umzusetzen?
Falls das mit Calc geht würde ich mich über Unterstützung jeglicher Art freuen.
Im Voraus herzlichen Dank.
Beste Grüße
MPG
Re: Dateneingabe und automatische Tabellenerzeugung
Ja, Calc ist geeignet, weil die Datenmenge nur gering ist.1. Ist Calc dafür überhaupt verwendbar? Oder Nuss hier mit einer Datenbank gearbeitet werden?
30 Minuten(?), wenn Du bereits alle Details genannt hättet die umzusetzen sind2. Wie hoch ist der Aufwand das umzusetzen?
ich habe eine Teillösung angehängt, dabei übernimmt ein Listenfeld die Kurzzeichen aus der ersten Tabelle zur Auswahl und nach erfolgter Auswahl wird das folgende Makro gestartet das die restlichen Kurzzeichen in Tabelle "Eingabe" überträgt:Falls das mit Calc geht würde ich mich über Unterstützung jeglicher Art freuen.
Code: Alles auswählen
Sub Kurzzeichen_uebertragen()
korr = 0
tc = ThisComponent
For i = 0 To 199
If tc.Sheets().getByName("Basisdaten").getCellByPosition(2, i+3).String = _
tc.Sheets().getByName("Eingabe").getCellRangeByName("B4").String Then
korr = 1
Else
tc.Sheets().getByName("Eingabe").getCellByPosition(1, i+17-korr).String = _
tc.Sheets().getByName("Basisdaten").getCellByPosition(2, i+3).String
End If
Next i
End Sub
Stephan
- Dateianhänge
-
- 170305_test-Teillösung.ods
- (18.42 KiB) 103-mal heruntergeladen
Re: Dateneingabe und automatische Tabellenerzeugung
Guten Morgen Stephan,
ganz herzlichen Dank für die schnelle Antwort und das Makro. Ich werde das testen.
Kennst Du jemanden, der die gesamte Aufgabenstellung umsetzen kann? Oder kannst
Du diese Aufgabenstellung ganzheitlich umsetzen?
Beste Grüße
Michael
ganz herzlichen Dank für die schnelle Antwort und das Makro. Ich werde das testen.
Kennst Du jemanden, der die gesamte Aufgabenstellung umsetzen kann? Oder kannst
Du diese Aufgabenstellung ganzheitlich umsetzen?
Beste Grüße
Michael