Judoboy
09.12.2014, 14:59
Excel VBA: Sverweis Formel - Makro einfügen!

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen. 

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

 ...zum Beitrag
Antwort
von Judoboy
10.12.2014, 16:18

Hi zusammen

Hab es noch kurz nach Posten der Frage selbst herausbekommen. War eigentlich ganz simpel... Danke trotzdem für die Personen, welche geantwortet hatten.

Hab den Bezug zu emptyrow dann doch noch hinbekommen, der Rest hat sich von selbst erledigt. (Eintrag emptyrow, 8)

Private Sub CommandButton2_Click()

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value
Cells(emptyRow, 8).FormulaR1C1 = "=VLOOKUP(RC1,'Maximale Fehler pro HC_pro KW'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If

    
Me.Label7 = "Speichern erfolgreich!"

End Sub
 ...zur Antwort
Judoboy
09.12.2014, 14:59
Excel VBA: Sverweis Formel - Makro einfügen!

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen. 

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

 ...zum Beitrag
Antwort
von Judoboy
09.12.2014, 15:01

Ach ja, ich hatte erst versucht mich per "emptyrow" auf die im obenstehenden Code erfasste Zeile zu referenzieren... Allerdings frisst Excel das nicht...

 ...zur Antwort
Dkrew
24.04.2014, 13:51
Warum zittert mein linkes Bein beim Auto fahren?

Hey Leute. Ich bin momentan in der Fahrschule und muss meine Praxisstunden absolvieren. Ich bin mittlerweile schon paar mal gefahren und mir ist stark was aufgefallen. Und zwar mein linkes Bein (Bei kupplung) zittert immer. Ich bin schon 5 mal gefahren und da legt sich irgendwie nicht. Am Anfang war ich nervös,was ich aber nicht mehr bin. Woran kann das liegen? Magnesium nehme ich regelmäßig ein und das ist wirklich nur wenn ich da im Auto sitze. Ich habe auch mal meinen Sitz verstellt,bringt aber nichts... Vorallem das nervt,weil ich merken muss,wann die Kupplung kommt. Wisst ihr Rat? Danke im voraus.

 ...zum Beitrag
Antwort
von Judoboy
24.04.2014, 13:55

Auf keinen Fall weiter Auto fahren. Nimm's Fahrrad.^^

 ...zur Antwort
coll97
25.07.2013, 22:17
Alleine im Freizeitpark?!

Hi, mein Vater hat mir (evtl.) angeboten, mit ihm in den Europapark zu gehen, da wir in der gegend vorbeikommen (Urlaub). Meine Freunde können halt nicht mit, weil die dann quer durch Deutschland zu uns hinfahren müssten :/ Kann man alleine in einem Freizeitpark Spass haben (allein, da wir uns wahrscheinlich trennen und nur manchmal treffen würden, da er nie Achterbahn fahren würde oä)?! Oder ist das eher rausgeworfenes Geld? Hat das schon mal wer gemacht? Danke für eure Erfahrungen :)

 ...zum Beitrag
Antwort
von Judoboy
25.07.2013, 22:22

Altaaaa die Fragen werden echt immer besser-.- es geht doch nicht nur drum "Spass" zu haben! Vielmehr möchte Dir dein Vater eine Freude bereiten und mal etwas mit Dir unternehmen! Sag ja und geniess den Tag, Lg

 ...zur Antwort
Blackso
25.07.2013, 15:53
PC Zusammenstellung gut fürs Gaming?

Hallo Miteinander,

ich habe jetzt mal einen PC zusammengestellt und möchte nun gerne wissen ob er fürs Zocken (von aktuellen Spielen) reicht:

Festplatte: Seagate Barracuda 7200 2000GB, SATA 6Gb/s

SSD: SanDisk Ultra Plus Desktop 128GB, 2.5", SATA 6Gb/s (SDSSDHP-128G-G26)

Prozessor: Intel Core i5-4570, 4x 3.20GHz, boxed

Arbeitsspeicher: G.Skill Ares DIMM Kit 8GB PC3-12800U CL9-9-9-24 (DDR3-1600 (F3-1600C9D-8GAB)

Grafikkarte: ASUS GTX660 TI-DC2O-2GD5 DirectCU II OC, GeForce GTX 660 Ti, 2GB GDDR5, 2x DVI, HDMI, DisplayPort

Motherboard: Gigabyte GA-H87-HD3

Laufwerk: Samsung SH-224BB schwarz, SATA, bulk (SH-224BB/BEBE)

Gehäuse: BitFenix Shinobi Core Midi-Tower USB 3.0 - schwarz Window

Netzteil: be quiet! Straight Power E9 400W ATX 2.31 (E9-400W/BN190)

Bei der Grafikkarte bin ich mir noch sehr unsicher. Welche könntet ihr mir da empfehlen und was würdet ihr insegesamt verbessern? Vielen Dank im Voraus. MFG Flippy

 ...zum Beitrag
Antwort
von Judoboy
25.07.2013, 15:54

Sollte für den Moment eig reichen ;) Wenn Du aber mehr Geld zur Verfügung hast, würde ich den Prozessor und je nach dem auch die Grafikkarte und somit auch das Netzteil aufrüsten.

 ...zur Antwort
Battleking9
16.07.2013, 16:05
Neuer Pc hardwareversand

Ich wollte mir einen neuen Pc kaufen und habe mir einen auf hardwareversand zusammen gestellt. Ist dieser gut und reicht er für akltuelle Spiele. Außerdem wollte ich fragen, ob hardwareversande iregendeine Testversion von einem Betreibsystem beim Zusambau auf den Rechner spielt. Daten: AMD FX-6300 Prozessor, Boxed, Sockel AM3+ 97,82 €

XFX DD RADEON 7870 1000M 2GB D5 2x mDP HDMI 2x DVI 168,98 €

Seagate Barracuda 7200 1000GB, SATA 6Gb/s 54,28 €

3R Systems Design Gehäuse R490 Schwarz 28,38 €

4GB Corsair Valueselect DDR3-1333 CL9 29,27 €

Sonderposten: be quiet! SYSTEM POWER 7 500W 48,38 € Einzelstück
Sonderposten: ASUS M5A78L-M LX/C/SI, BULK, Sockel AM3+, mATX 45,08 € Einzelstück
HP DVD1260i DVD-Brenner Retail 24,33 € Rechner - Zusammenbau 20,00 € Gesamt:516,52 €

 ...zum Beitrag
Antwort
von Judoboy
16.07.2013, 16:16

Also beim Prozessor würd ich nicht sparen. Mit dem Modell wirste nicht weit kommen... Im Vergleich mit anderen Prozessoren schneidet er doch recht schlecht ab (weit hinter dem schlechtesten Intel i7) Grafikkarte sollte passen Harddisk sollte auch passen wobei 1TB heutzutage etwas knapp ist :D Beim Ram würde ich DRINGEND aufstocken. Unter 8GB würd ich heute keinen Computer mehr kaufen. Zudem ist die Taktrate mit 1333 zwar ausreichend, jedoch für anspruchsvolle Spiele ungenügend.

netzteil: 500 Watt? naja ich kann mich täuschen ohne das genau anzuschauen aber ich vermute stark, dass da unter 600-750Watt nix läuft, sofern du Prozessor und RAM aufstockst. Mainboard musste dann halt ensprechend neu anpassen. Gehäuse muss einfach so gross sein, dass die Grafikkarte platz hat^^

 ...zur Antwort
Judoboy
29.11.2011, 23:19
2 Festplatte--> Programme/Spiele standartmässig auf 2. Festplatte?

Hallo zusammen

Habe neuerdings eine SSD für das Betriebssystem im PC ( Win 7) verbaut. Kann man i-wo einstellen, dass Programme und Spiele automatisch auf die 2. verbaute Festplatte (E:\ ) installiert werden, statt wie standartmässig auf C:\ ? Bei manchen installationen kann man nämlich nicht auswählen, auf welchen Pfad es installiert werden soll... Und wär bisschen komfortabler so ;-)

Thx für Antworten =)

 ...zum Beitrag
Antwort
von Judoboy
29.11.2011, 23:36

An alle die kein Programm kennen bei dem man den Pfad nicht ändern kann ;-)

Logitech Gaming Software für die G11 Tastatur. Unnötiges Programm aber für ein Beispiel reichts^^

Programme und meine ganzen Games mag ich ned auf die SSD kloppen weil sie 1. nur 120GB Speicher hat und 2. ich keine Lust auf starke Abnutzung habe

Kleine Spiele wie League of Legends okay, aber sowas wie BF3 kommt mir ned auf die SSD :P

 ...zur Antwort
EndlichUrlauber
22.02.2011, 08:47
Skype gesperrt an Universität

Guten Tag liebe gutefrage-Team,

meine Frage ist folgende: Ich möchte an der universität skypen, aber das Netzwerk lässt das Programm nicht zu und verbindet nicht. Gibt es da eine Lösung?

Das gleiche für das Pokerprogramme von Pokerstars :)

Vielleicht könnt ihr mir ja helfen. Danke!

Andi

 ...zum Beitrag
Antwort
von Judoboy
23.02.2011, 17:53

Es wird schon seine Gründe haben wieso deine Uni solche Dinge sperrt. Ich an deiner Stelle würde Zuhause skypen und in der Uni.... lernen was auch immer^^

Sonst kriegt man ganz schnell Probleme mit dem/der Rektor/in ;-)

 ...zur Antwort