Ichs ollte vllt erwhnen das ich wei das ich nur auf Zeile 10 schauen muss weil da mein Tabellenkopf ist Verfasst am: 27. Jul 2011, 17:00 Rufname: Peter dann nimm doch Code: iSpalte = Cells(10, )(xlToLeft) Gru Peter
B. Ihre Bücher über Amazon bestellen würden. Wenn Sie ein Produkt kaufen, erhalte ich dafür eine Provision. Für Sie ändert sich am Preis des Produktes gar nichts. Ich möchte mich an dieser Stelle jetzt schon für Ihre Unterstützung bedanken.
Letzte Zelle in bestimmter Spalte finden (VBA) von Fritz vom 31. 07. 2003 11:56:53 AW: Letzte Zelle in bestimmter Spalte finden (VBA) - von WernerB. am 31. 2003 12:04:53 AW: Letzte Zelle in bestimmter Spalte finden (VBA) - von Koenig W. 2003 12:14:38 klappt wunderbar, danke Dir vielmals (o. T. ) - von Fritz am 31. 2003 14:17:17 AW: Letzte Zelle in bestimmter Spalte finden (VBA) - von Dan am 31. 2003 13:24:37 Betrifft: Letzte Zelle in bestimmter Spalte finden (VBA) von: Fritz Geschrieben am: 31. Excel vba letzte spalte 10. 2003 11:56:53 Hallo Experten, ich möchte mittels VBA etwas aus Spalte B nach Spalte H kopieren. Dabei sieht meine Tabelle wie folgt aus. Jeden Monat ergänze ich meine Tabelle in Spalte B nach unten hin um eine Zeilenanzahl X, wobei x jeden Monat anders sein kann. Dann soll per Macro der neue Inhalt aus Spalte B nach Spalte H kopiert werden. Dazu muß ich feststellen bis wohin Spalte H bereits gefüllt ist und dann +1 und ich habe die erste neue Zelle in Spalte B. Spalte B muß dann bis zum Ende der Einträge markiert werden und kann dann nach Spalte H (an des ermittelte Ende) kopiert werden.
2011 Hallo Poltergeist, Dein Code ist nur dann korrekt, wenn das ActiveSheet auch gleichzeitig das Sheet("Übersicht") ist. Sauberer wäre es so: (Falls das aktuelle Datum eingetragen werden soll, geht es einfach mit "Date") With Worksheets("Übersicht") ("B" & (, 2)(xlUp)) = Date End With __________________ Gruß Uwe
Geschrieben am: 31. 2003 14:17:17 c von: Dan Geschrieben am: 31. 2003 13:24:37 ' Hallo Fritz, ' ich schicke dir eine function, die die zeile der nachsten freien zelle in bestimmter ' spalte zuruck gibt. Die Function hat 3 parameter: worksheet, wo man sucht, ' spalte wo man sucht, zeile, wo man mit der suche beginnen will. Wenn die ' Start-Zelle leer ist, gibt die Function die zeile dieser zellen zuruck. Vielleicht ' kann dir diese func. Letzte Zelle in bestimmter Spalte finden (VBA). helfen:-). Mfg. Dan Option Explicit Public Function get_row_of_last_free_cell(ByVal sh As Worksheet, Optional ByVal col As Integer = 1, Optional ByVal starting_row As Integer = 1) As Long Dim row As Long On Error GoTo hErr row = starting_row With sh Do While ((row, col) <> "") row = row + 1 Loop End With get_row_of_last_free_cell = row Exit Function hErr: MsgBox "Laufzeitsfehler Nr. " & & ". "
Der macrorekorder hilft mir da leider nicht weiter da eben keine fixen Mengen kopiert und auch kein fixer Start und Endbereich vorliegen. Kann mir jemand helfen? Gruß Fritz Betrifft: AW: Letzte Zelle in bestimmter Spalte finden (VBA) von: WernerB. Geschrieben am: 31. 2003 12:04:53 Hallo Fritz, Letzte Zelle mit Inhalt in Spalte "H": LaR = Cells(, 8)(xlUp) Letzte Zelle mit Inhalt in Spalte "B": LaR = Cells(, 2)(xlUp) Gruß WernerB. von: Koenig W. Geschrieben am: 31. 2003 12:14:38 Hallo Fritz so könnte es funktionieren. Sub Kopiertest() Dim str1 As String Dim str2 As String 'letzte gebrauchte Zelle in Spalte H 'und eine nach unten Range("H65536")(xlUp)(1, 0) 'Adresse der Zelle 6 Spalten links der aktiven 'd. Excel vba letzte spalte youtube. h. erste "neue in Spalte B str1 = (0, -6). Address 'letzte "neue" in Spalte B str2 = Range("B65536")(xlUp). Address 'Bereich der "neuen" kopieren Range(str1 + ":" + str2) 'Ab der immer noch aktiven Zelle H 'das kopierte einfügen steSpecial End Sub Gruss Wilhelm Betrifft: klappt wunderbar, danke Dir vielmals (o. )
SpecialCells(xlCellTypeLastCell)" nicht immer die letzte beschriebene Zelle zurückgibt. (Siehe Franks Routine nach Einsatz von UsedRange, er checkt mit den beiden anschließenden Schleifen, ob UsedRange auch wirklich UsedRange ist. ) Das ist auch der Grund, daß mein Beitrag von "RealLastCell" spricht. Beispiel: Schreibe in ein jungfräuiches Tabellenblatt irgendwo etwas hin und wende Cells. SpecialCells(xlCellTypeLastCell) an, dann lösche den Eintrag und wende wieder Cells. SpecialCells(xlCellTypeLastCell) an. Excel vba letzte spalte pro. Nun wird die Zelle selektiert, in der vorher der Eintrag stand, aber das ist nicht wirklich die letzte Zelle. Werner Excel XP SP2, WIN XP 5. 1 SP1 Post by Werner Rohrmoser Dein erster Vorschlag kann zu einem falschen Ergebnis führen, da ". Hallo Werner, ja, das ist mir bekannt und ich selbst habe hier mehrfach darauf hingewiesen. War inkosequent, diese Lösung trotzdem anzubieten:-(( -- Gruß Eberhard XL 2000 Eberhard(punkt)Funke(at) Loading...
3 Minuten köcheln lassen, bis die Sauce zu binden beginnt 6. Die Soße mit Salz und Pfeffer abschmecken Wir wünschen euch eine schöne Weihnachtszeit und einen guten Appetit! Euer Gewürzhelden-Team
Gans mit Apfel-Zwiebel-Maronen Füllung Bei der Weihnachtsgans mag ich es sehr gerne traditionell von der Füllung und Zubereitung her. Als beilage passt ganz wunderbar herrlich aromatischer Rotkohl und Semmelknödel. Die Zubereitung der Gans braucht etwas Zeit und Vorbereitung, aber ist gut zu schaffen. Meine ganz persönliche Weihnachtsgans hatte ich ca. Gans mit maronenfüllung lafer - KarynnSeher. 4 Wochen vorher schon vorbestellt beim Bauern. Zutaten für die Gans, Füllung und Sosse Gans 1 frische Gans, ca. 4, 5 kg 1 großer Gänsebräter 1 Flasche / Dose Guinness Beifuss Salz Pfeffer Füllung 5-6 Äpfel, ich habe Elstar genommen, Kerngehäuse entfernen, nicht schälen, achteln 2 Gemüsezwiebeln, schälen und achteln 1 Packung gegarte Maronen, groß zerhacken 100 ml Cidre oder Weißwein Sosse 350 ML kräftiger Rotwein, trocken 800 ML Gänsefond (2 Gläser) Innereien und Hals der Gans (ohne die Leber! ), grob zerkleinert 1 große Karotte, schälen und grob zerkleinern 1 Pastinake, schälen und grob zerkleinern 1 Gemüsezwiebeln, schälen und achteln 1 Stück Sellerie, schälen und grob zerkleinern 1 Lorbeerblatt 1 TL Thymian, getrocknet 10-12 Wacholderbeeren Saft von einer großen Orange 1 TL Speisestärke Beifuß Apfel-Zwiebel-Maronenfüllung frisch von der knusprigen Gans gelegt.
Ca. 4 Stunden bevor die Gans serviert werden soll den Backofen auf 200 Grad stellen und vorheizen, dann die Gans für ca. 2, 5 Stunden bei 180 Grad bei geschlossenem Deckel garen. Erst nach 1 Stunde die Gans mit dem Guinness begießen, zwischenzeitlich ist auch schon reichlich Fett ausgetreten. Danach alle 20-30 Minuten die Gans mit der Mischung aus Fett und Guinness begießen. Nach 2, 5 Stunden die Temperatur auf 80 Grad reduzieren und eine weitere Stunde garen lassen, dabei das begießen nicht vergessen. Gans aus dem Bräter nehmen und die Flüssigkeit abgießen, das Fett trennt sich beim Abkühlen vom Bier und kann danach ca. 3-4 Wochen weiter verwendet werden. Rezept für eine Weihnachtsgans [Metzgerei der Ludwig]. Vom Bier ca. 1 Tasse aufheben, das kommt später in die Soße. Gans zurück in den Bräter setzen und bei starker Oberhitze ca. 10 – 15 Minuten knusprig braten. Fertig ist die Gans. Das Tranchieren überlasse ich euch:) Zubereitung der Füllung Die Zutaten für die Füllung in einem Topf geben, alles zusammen leicht anbraten lassen und mit etwas Cidre oder Weißwein ablöschen.