Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Programm aufziehen, mehrere Kniffligkeiten
 15.03.2011 10:09:32 Gast123
NotSolved
15.03.2011 10:56:54 Severus
NotSolved
15.03.2011 11:02:46 Gast91568
NotSolved
15.03.2011 13:51:17 Severus
NotSolved

Ansicht des Beitrags:
Von:
Gast123		 Datum:
15.03.2011 10:09:32		 Views:
1728		 Rating:
     
Antwort:
  Ja
Thema:
Excel-Programm aufziehen, mehrere Kniffligkeiten

Hallo,
ich habe ein für meine Verhältnisse kniffliges Programm zu schreiben.
Folgendes soll erfüllt werden:

In einem Tabellenblatt sind in der obersten Zeile Baureihen (ca.50), und in der ersten Spalte techn. Daten (ca.300)  zu den Baureihen aufgeführt.
Es gibt 5 Zusammenstellungen an techn. Daten die relevant sind, das heisst das von den techn. Daten immer nur bestimmte Kombinationen gefragt sind.
Beim Start des Programms soll der Anwender gefragt werden (oder durch anklicken auswählen) welche Baureihe er haben möchte und in der 2. Auswahl soll er festlegen welche Kombinationsmöglichkeit (1-5) er haben möchte.
Die Auswahl soll dann in einem anderem Tabellenblatt eingefügt werden.

Ich hab das mal ungefähr programmiert, allerding ist der Programmieraufwand gewaltig und fehleranfällig, ausserdem bekomme ich das nicht hin, das das Blatt bei Mehrfachauswahl von links aufgefüllt wird.


Vielleicht kann mir jemand ein paar Tips geben, das wäre super, da ich momentan wirklich auf dem Schlauch stehe und VBA-mässig nicht sonderlich bewandert bin.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
a = InputBox("Bitte geben Sie den gewünschten Spaltencode ein")
 
b = InputBox("Welche Datenzusammenstellung möchten Sie aufrufen? Sie können zwischen 1, 2, 3, 4, oder 5 wählen")
 
i = 2
 
If a = "E" And b = "1" Then
 
 
 
Worksheets("Ausgabeblatt").Cells(1, 1) = Worksheets("berechnungen").Cells(1, 1) 'hier werden die relevanten Daten in das andere Blatt übertragen'
Worksheets("Ausgabeblatt").Cells(1, i) = Worksheets("berechnungen").Cells(1, 5)
Worksheets("Ausgabeblatt").Cells(2, 1) = Worksheets("berechnungen").Cells(18, 1)
Worksheets("Ausgabeblatt").Cells(2, i) = Worksheets("berechnungen").Cells(18, 5)
 
 
 
End If
 
If a = "E" And b = "1" Then   'hier habe ich versucht zu erreichen das das Blatt von links nach rechts aufgefüllt wird'
Else: r = 0
End If
 
 
 
If a = "I" And b = "1" Then
 
 
Worksheets("Ausgabeblatt").Cells(1, 1) = Worksheets("berechnungen").Cells(1, 1)
Worksheets("Ausgabeblatt").Cells(1, i + 1) = Worksheets("berechnungen").Cells(1, 9)
Worksheets("Ausgabeblatt").Cells(2, 1) = Worksheets("berechnungen").Cells(18, 1)
Worksheets("Ausgabeblatt").Cells(2, i + 1) = Worksheets("berechnungen").Cells(18, 9)
 
 
 
End If
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Programm aufziehen, mehrere Kniffligkeiten
 15.03.2011 10:09:32 Gast123
NotSolved
15.03.2011 10:56:54 Severus
NotSolved
15.03.2011 11:02:46 Gast91568
NotSolved
15.03.2011 13:51:17 Severus
NotSolved