Dateneingabe und automatische Tabellenerzeugung

[MPG2017]

170305_test.ods

(22.17 KiB) 71-mal heruntergeladen

170305_test.ods

(22.17 KiB) 71-mal heruntergeladen

Guten Tag zusammen,
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

[Stephan]

1. Ist Calc dafür überhaupt verwendbar? Oder Nuss hier mit einer Datenbank gearbeitet werden?

Ja, Calc ist geeignet, weil die Datenmenge nur gering ist.

2. Wie hoch ist der Aufwand das umzusetzen?

30 Minuten(?), wenn Du bereits alle Details genannt hättet die umzusetzen sind

Falls das mit Calc geht würde ich mich über Unterstützung jeglicher Art freuen.

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:

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

Gruß
Stephan

[MPG2017]

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