-roTekuGeL-

Wunder? ja das triffts in etwa lern doch irgendeine neue Sprache... mach ich immer wenn ich nix zu tun hab, zur Zeit ist noch PHP dran

ich bin erfeut und schockiert zugleich... DU stimmst mir zu?! :eek:

ich drücks mal so aus... sind dir die Doorboards wichtiger als dein schatzi?

Moin! wow! wasn wetter... könte bissl wärmer sein, aber man kann nicht alles haben... auf jeden fall perfektes Autowaschwetter

so schnauze voll für heute... bis später!

aha davon wusste ich ja noch gar nichts... aber sollen sie machen was sie Glücklich macht und die wirtschaft ankurbelt

von lassen kann ja gar keine rede sein! dass der Opel ausm DT nich mehr geht is aber kein Vorurteil und das is aja auch wirklich nur ein Wortwitz, mein kleiner hat mich zumindest noch nie im Stich gelassen... aber is ja auch egal, solang du mit deinem und ich mit meinem Auto glücklich bin

also sowas ist ja wohl selbstverständlich... obwohl, Opel? gibts da nich grad nen Thread im DT? :floet:

naja wenn du krampfhaft das Gute an dem Auto sehen willst :floet: mh ich sollte auch mal nach nem Ford Treffen ausschau halten... aber bis dahin muss erst noch was gemacht werden

bei dir hat das Geld wohl auch nicht mehr für nen 6er gereicht?

ja jetzt wo wieder Sommer is und alle draußen rumfahren hats mich wieder gepackt naja solang zu Pfingsten schönes Wetter ist ist mir alles egal...

mh willste n bissl regen haben? also ich hab hier genug für 2 Bundesländer eh ja Moin!

mh also ich weiß ja nixh... aber ich war 20 min. früher fertig... und da war ich auch nicht der einzige

soooo Feierabend! bis später! :e@sy

stimmt... obwohl mich gestern auch der schlag getroffen hat, als da 1,13 an der Tanke stand...

hammerkrass? also naja ich weiß ja nich... da war doch nix weiter zu machen als nen Datensatz einzulesen und den dann an die Unterprogramme zu übergeben... oder hab ich etwa noch was falsch gemacht

ich glaube das weitere sollten wir per PM regeln... schick mir doch mal bitte nen Screenshot des VBA editor (mit Quellcode und so)

sollte er nicht... cells(row, column) heißt erst Zeile dann Spalte

Value brauchst du nicht, wenn du sagst: Variable = Tabelle1.cells(1,1) dann schreibt er da den wert der in der Zelle steht rein... achau erstmal in dem linken fenster wie die Tabelle heißt die du ansprechen willst (nicht der name in klammern, sondern der davor...) Tabelle1 heißt sie ja nur bei mir... wenn du das hast dann: Tabelle1.Cells(Var1, Var2) das , musst du nicht in " setzen...

da fällt mir gerade noch ne lustige geschichte von gestern ein... nachdem die Prüfungen endlich vorbei waren, sind wir noch wo hin gefahren um was zu Trinken... also insgesamt so 8 Autos... naja ich auf der Autobahn (Raser wie ich nunmal bin) ganz vorn, hinter mir der dachte wohl ich weiß nich wo's hingeht, da ich kurz vor der Ausfahrt noch nen Laster überholen will, gibt also Lichthupe zu mir und Blinkt rechts, hinter ihm dachten natürlich alle das sie da runterfahern müssen, nur dumm dass das noch die Autobahnauffahrt war... also alle erstmal rechts rüber und als sie's dann geschnallt haben wieder Links rüber da schähmt man sich ja richtig für seine Klassenkammeraden :floet:

ne das wollt ich nicht... wenn ein Auto, dann eins was ich mir selber Hart erarbeitet hab

also deine Tabelle hat ja einen Namen (im Editor links zu sehn) und den kannst du ohne Worksheets nehmen... also: Tabelle1.Cells(1,1) = "A1" er selektiert also Zelle A1 und schreibt A1 rein... das Value kannst du übrigens auch weglassen...

kann ich was dafür dass das Geld nicht mehr für nen 6er BWM gereicht hast?

Dim strLast As String Dim i As Integer strLast = Tabelle1.Cells(1, 1) i = 2 Do While Tabelle1.Cells(i, 1) <> "" If strLast <> Tabelle1.Cells(i, 1) Then Rows(i - 1 & ":" & i - 1).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone End If strLast = Tabelle1.Cells(i, 1) i = i + 1 Loop sollte was unklar sein frag ruhig...

geht auch anders... Tabelle1.cells(Zeile, Spalte) und da gehn als Spalte auch Zahlen