Verwandte Themen

prinzboldi
21.01.2015, 12:11
In Excel mit Makro bestimmte Bereiche in erste freie Zeile kopieren

Hallo Zusammen, Ich habe erst gestern begonnen zu versuchen mich ein wenig in Makro einzuarbeiten hab dementsprechend nicht allzu viel Ahnung. . Ich habe in meiner Tabelle Statistiken zu der Kursentwicklung mehrerer Aktien, Also z.B. 1 Aktie, 1. Spalte: Datum, 2.Spalte: Kurs zu diesem Datum usw. Ab Spalte Q beginnt das gleiche dann für Aktie 2, ab Spalte AG dann Aktie 3 usw. Jetzt will ich dass diese Daten untereinander stehen. Also dass unter den Daten von Aktie 1 eine Zeile freigelassen wird und dann die Daten von Aktie 2 kommen. Ich muss dazu also für Aktie 2 die Spalten Q-AF und die Zeilen 1-89 kopieren und das ganze einfügen in Zelle A91. Ich hab mal bissel rumprobiert und habe mir dieses Makro zusammengeschustert: Sub neu()

'** Ermittlung der letzten Spalte in Zeile 1 ls = Cells(1, Columns.Count).End(xlToLeft).Columns.Column '** Durchlauf aller Zeilen Dim s As Integer For s = ls To 1 Step -1 'Zählung rückwärts bis Spalte 1 '** Abfragen, ob in der ersten Spalte Datum steht If Cells(1, s).Value = "Date" Then '** Wenn Datum steht dann soll die Range ab Datum 90 Zeilen nach unten und 17 Spalten nach rechts kopiert werden Range(Cell(1, s), Cell(90, s & 17)).Select

Selection.Copy

Range("A65536").End(xlUp).Paste End If

Next s End Sub

Leider funktioniert das so offensichtlich nicht. Würde mich freuen, wenn mir jemand helfen könnte. Danke schonmal im Voraus

Microsoft Excel, programmieren, Makro
2 Antworten
VDloverin
27.12.2014, 14:46
Mit Links
Problem mit Sigma 105mm F2.8 EX Makro DG OS HSM-Objektiv

Hallo, ich habe mir zu Weihnachten ein Makro Objektiv gewünscht, weil ich gerade diesen Bereich so interessant finde. Die ganze Zeit konnte ich mich zwischen dem oben genannten, und dem Tamron 90mm Makro nicht entscheiden, also hat mir mein Vater die Entscheidung abgenommen, weil es ja ein Geschenk werden sollte, und raus kam dabei das Sigma. Nun habe ich heute mal draußen ein wenig fotografiert. Fazit: Weder ohne, noch mit Stativ konnte ich gestochen scharfe Bilder erzielen. Den OS hatte ich eingeschaltet, hatte es aber auch mal ohne ausprobiert. Jetzt verstehe ich irgendwie nicht, warum das nicht funktioniert? Vorher dachte ich noch: Ok, aus der Hand ist eh schwierig, weil meine nicht die ruhigsten sind. Voller Hoffnung dann das Stativ angebracht, die Bilder anschließend angeguckt und festgestellt: Es ist zwar ein wenig besser, aber von dieser so tollen, angepriesenen Schärfe der Bilder, wie es im Internet oft steht, ist für mich nichts zu sehen..

Hat irgendjemand ähnliche Erfahrungen gemacht? Weil für diese ca.400€ bin ich im Moment schon echt ziemlich enttäuscht..

Hier mal ein Beispielbild, wie das oft auf den Bildern aussieht. Das Bild wurde mit Stativ gemacht. (Klar war es ein bisschen windig, aber ich habe meist einen ruhigen Moment abgewartet. Jedoch sollte ja der OS Verwacklungen verhindern?! Und mit meinem anderen Objektiv Canon EF-S 55-250mm 4,0-5,6 IS II hat aus der Hand auch immer alles super funktioniert. Deshalb nun diese Frustration, vor allem für den Preis..)

http://img5.fotos-hochladen.net/uploads/img2256je3mkq1ig4.jpg

Ich würde mich sehr über Antworten freuen :(

Fotografie, Makro, Objektiv, schärfe
9 Antworten
Judoboy
09.12.2014, 14:59
Mit Bildern
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?

Bild zum Beitrag
Computer, Microsoft Excel, programmieren, Makro, VBA, Script, Tabelle
4 Antworten
MissNobody0508
07.05.2014, 16:04
VBA: Zwei Spalten mit Wert multiplizieren und dann addieren mit Hilfe von Makros

Hallöchen,

ich habe folgendes Problem Ich habe zwei Spalten die ich jeweils miteinander addieren möchte. Doch bevor ich diese addiere, möchte ich Spalte B mit dem Wert aus der TextBox1 multiplizieren und Spalte C mit dem Wert aus Textbox2. Danach sollen beide Spalten miteinander addiert und dann sortiert werden. Spalte D ist in diesem Fall die Ergebnisspalte. Das Programm hat auch schon funktioniert, jedoch habe ich vorher nur die spalten addiert und sortiert.

HIer mein bereits geschriebener Code:

Private Sub CommandButton1_Click()



' Prüfen ob Lastspitzen eingetragen wurden, ansonsten Fehlermeldung

        If TextBox1.Value = "" Or TextBox2.Value = "" Then
        MsgBox "Bitte geben Sie eine Lastspitze ein!"
     
Else
        
Dim wks As Excel.Worksheet
Dim lngLetzteZeile As Long
Dim Last1 As Integer
Dim Last2 As Integer
Last1 = TextBox1.Value
Last2 = TextBox2.Value  

Set wks = ActiveWorkbook.Worksheets("Vergleich")


With wks
 
lngLetzteZeile = .Cells(.Rows.Count, "B").End(xlUp).Row
If lngLetzteZeile < 15 Then Exit Sub

 With .Range("D15:D" & lngLetzteZeile)
 'berechne: D := B + C
 .FormulaR1C1 = "=RC[-2]*Last1+RC[-1]*Last2"
 'Formeln durch deren Ergebnis ersetzen
 .Value = .Value
 End With
 
With .Range("B15:D" & lngLetzteZeile)
 .Sort Key1:=.Cells(2), Order1:=xlDescending, _
 DataOption1:=xlSortTextAsNumbers, _
 SortMethod:=xlPinYin
End With

End With
End If


End Sub
Microsoft Excel, Makro, VBA
3 Antworten

Meistgelesene Beiträge zum Thema Makro
Mehr meistgelesene Fragen zu Makro