 Menü
 An- und Abmelden
 Partner / Links
|
Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.
Nachrichten - Black-Mage
Seiten: [1]
1
« am: März 06, 2018, 21:26:57 Nachmittag »
Huhu ihr lieben. Ich importiere mit einem VBA Code eine Excel Datei und lese verschiedene Zellen aus. Jedoch ist es nun erforderlich, das ich es irgendwie hin bekomme die Tabellenblätter auszuwählen. Gibt es denn eine Möglichkeit, wenn ich die Excel Datei ausgewählt habe, das ich eine Auswal über alle Tabellenblätter bekomme in die ich einen Haken setzen kann um diese dann alle je nach Auswahl zu importieren.
Hier mein Code zum importieren.
Dim wbAlt As Workbook, wbNeu As Workbook
Dim wsAlt As Worksheet, wsNeu As Worksheet
Dim StatusCalc As Long
Sub importieren()
Set wbNeu = ThisWorkbook
'Alte Version öffnen
ChDir (ThisWorkbook.Path)
With Application.FileDialog(msoFileDialogOpen)
.Title = "Bitte Datei mit alten Versionsdaten öffen"
.Filters.Clear
.Filters.Add "Excel-Dateien", "*.xls;*.xlsm;*.xlsx),*.xls;*.xlsm;*.xlsx", 1
If .Show = -1 Then
'Alte Version schreibgeschütz öffnen
Set wbAlt = Workbooks.Open(Filename:=.SelectedItems(1), ReadOnly:=True)
Else
GoTo Beenden
End If
End With
'Events und Berechnung speichern und deaktivieren - START
With Application
.EnableEvents = False
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
'Events und Berechnung speichern und deaktivieren - ENDE
'Importieren der alten Werte - START
Set wsAlt = wbAlt.Worksheets("Tabelle1")
Set wbNeu = ThisWorkbook
Set wsNeu = wbNeu.Worksheets("Tabelle1")
.
.Zellen importieren
.
.
wbAlt.Close savechanges:=False
Beenden:
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End Sub
2
« am: Juli 24, 2017, 00:41:50 Vormittag »
So nach einigen Videos bei Youtube habe ich eine Lösung gefunden.
Sollte jemand ein ähnliches Problem haben hier wäre mein Code schnippsel
=WENN(T44 <> "";WENN(ISTFEHLER(SVERWEIS(T44;Tabelle2!$A$6:$B$66;2;0));SVERWEIS(LINKS(T44;FINDEN(" ";T44)-1);Tabelle2!$A$6:$B$66;2;0);SVERWEIS(T44;Tabelle2!$A$6:$B$66;2;0));"")
Im Grunde macht die Formel nunfolgendes: wenn sich irgendetwas in Zelle T44 befinden dann > sollte dort ein NV Fehler sein bei Berechnung des sverweises benutze sverweis mit finden und abschneiden suche nach dem ersten Leerzeichen (finden / links), andernfalls nutze sverweis normal, > ist in Zelle t44 nichts zeige eine leere Zelle an.
3
« am: Juli 23, 2017, 19:16:16 Nachmittag »
Hm schade das es da nicht was in Excel gibt was zumindest den am ähnlichsten String sucht, in VBA kenne ich mich überhaupt nicht aus.
4
« am: Juli 23, 2017, 18:37:44 Nachmittag »
nunja das problem ist das ich nicht alles da abfangen kann was man als expertenwissen nutzen kann, ich muss leider die möglichkeit lassen das man es ergänzen kann. Gibt es denn keine möglichkeit das trotzdem irgendwie zu suchen?
5
« am: Juli 23, 2017, 14:50:58 Nachmittag »
huhu in der Dropdownliste und dann später auch in der Suchspalte in dem ich nach dem Ausgewählten Eintrag mit sverweis gesucht habe, stehen unterschiedliche Skills hier ein kleiner Aussschnitt
-Attractiveness Skills-
Personal Grooming
Wardrobe & Style
-Cool Skills-
Interrogation [H]
Intimidate [H]
Persuation & Fast Talk [H]
Resist Torture / Drugs [H]
Streetwise
-Empathy Skills-
Acting
Human Perception
Interview
Leadership
Seduction
Social
-Intelligence Skills-
Awareness / Notice
Compose or Write
Disguise
Expert
Gamble [H]
Know Language
Programming [H]
Shadowing / Avoid Pursuit [H]
Survival
Teaching [H]
-Reflex (Personal Combat) Skills-
Automatic Weapons
Blade
Dodge & Escape
Handgun
Hand to Hand
Rifle
-Reflex (Mecha Combad) Skills-
Problem ist der bei meinem Testen der Skill Expert, weil dieser nur Expertenwissen darstellt und durch weitere information später ergänzt wird, Know Language wäre wohl noch so ein Skill den man manuell ergänzen muss. Andere Skills die man aus der Liste auswählt werden eigtl. nicht noch ergänzt, zumindest muss man das nicht. Sollte es doch getan werden, hoffe ich natürlich das das auch irgendwie geht =)
z.B.
Expert ( Invent )
Expert - Krypto
Expert Tacktics
oder
Known Language Naustian
habe das mal unterschiedlich geschrieben da jeder es von den Benutzern anders ergänzt wird, nur eben Expert bleibt gleich. Meine vermutung war nun das wenn ich Sverweis ungenau suchen lasse das er trotzdem Expert finden, das es in der Liste vorhanden ist. Nur geht das eben so nicht, bekomme immer eine andere Zeile, die ihm wohl besser gefällt.
6
« am: Juli 22, 2017, 23:40:55 Nachmittag »
Huhu ich habe eine Dropdownliste erstellt auf Tabelle2 und diese einen Namen gegeben. In Tabelle 1 habe ich dann mehrere Zellen die auf diese Dropdownliste zugreifen > Daten > Gültigkeit etc...
Desweiteren habe ich die Option abgeschaltet, das man keine manuelle eingabe machen kann, da ich diese erlauben möchte. Nun habe ich jeweils immer in der Zelle rechts neben der Dropdownliste per Sverweis den ausgewählten Wert der Liste in einer Matrix suchen lassen und mir die Zelle daneben ausgegeben, das klappt auch supi. Probleme gibt es nur wenn nun jemand wirklich auf die Idee kommt und den Ausgewählten Wert ändert bzw ergänzt. Meine Idee war nun den Sverweis nicht genau zu machen, aber das hilft nicht viel. Weil der Inhalt aus der Nahcbarzelle nicht stimmt.
Tabelle 2
A6 - A 66 Liste für Dropdown
B6 - B 66 Werte die ich per Sverweis auslese
hier der Sverweis code einer Zelle aus Tabelle 1
=WENN(T44 <> "";SVERWEIS(T44;Tabelle2!$A$6:$B$66;2;0);"")
Was kann ich denn nun machen, das ich manuell etwas eintrage bzw ergänze aus dem Dropdown, und mir excel aus der Matrix das am besten passenste sucht und die Nachbarzelle ausgibt.
EDIT
Ich habe es auch schon mit :
=WENN(T44 <> "";SVERWEIS(T44&"*";Tabelle2!$A$6:$B$66;2;0);"")
versucht also &"*" hinzugefügt. aber bekomme immer #NV
Seiten: [1]
|
Beiträge anzeigen