KANN LEIDER NUR EINE ALS BESTE AUSWÄHLEN! ####
ist deine tastatur kaputt? das a klemmt so ;D
nein, zu deiner frage: kuchen backen find ich toll für abf, den sie am liebsten mag. das ist was sehr persönliches, nichts gekauftes!!!
stimme zimjo99 zu!!!
lass die anderen reden. wie du das beschreibst siehst du gut aus und kannst dich über deine unproblematische haut echt freuen. wenn du keine schminke möchtest, dann steht dazu und lass es einfach weg!
war "hier und heute"!!!
gesuchtes lied ist: Symphonie Nr. 3, Es-Dur op. 97 von Robert Schumann!!!
bist du das auf dem bild oder willst du so aussehen. wenn 1. ja, dann ist doch gut!
nimm bitte keinen zu außergewöhnlichen namen. vllt ist es für ein baby süß, aber das kind wird älter, geht in die schule, studieren, wird mutter, großmutter usw. dann muss der name immer noch passen. das finde ich z.b. bei lilly total schlimm. als kleinkind toll, in der schule schon schwierig, beim studieren schwieriger und dann als manager oder unternehmensberater arbeiten? ne, wer stellt jemanden mit so einem kindlichen und süßen namen ein? später wenn es heißt: wir fahren zu oma lilly geht das wieder, aber die zeit dazwischen wird für das kind nicht einfach sein!
wobei ich Elisabeth, Madleine oder Jessica schöner finde....
wie kann ich denn jetzt beide Codes (gutefrage.net/frage/excel-2010-zelle-wie-ein-formular-erstellen# UND http://www.gutefrage.net/frage/excel-2010-grossschreibung-immer) zusammenfügen?
Im zweiten Teil will ich, dass falls eine Eingabe nicht in Großbuchstaben geschrieben ist, von Excel automatisch z.B. nach drücken der Entertaste in Großbuchstaben umgewandelt wird. Und das für die genannten vier Zellen.
Ich hab das mal versucht, klappt aber irgendwie nicht. Ich kenn mich damit aber auch nicht so gut aus wie ihr, wahrscheinlich hab ich da einen oder mehrere Fehler drin...
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ExaktZelle As Boolean
ExaktZelle = True 'Für Sub-übergreifendes Ändern
'Beispiele:
Call FormZelle(Range("A3"), "Ort")
Call FormZelle(Range("T3"), "Hausname", ExaktZelle)
End Sub
Private Sub FormZelle(Zelle As Range, _
Hintergrundtext As String, _
Optional ExakteZelle As Boolean = False, _
Optional HintergrundFarbe As Long = 0, _
Optional VordergrundFarbe As Long = 0)
Dim HText$
Dim HColor&
Dim VColor&
Dim Target As Range
Dim b As Boolean
HText = Hintergrundtext
If HintergrundFarbe = 0 Then
HColor = RGB(200, 200, 200) 'Standart-Wert: kann geändert werden
Else
HColor = HintergrundFarbe
End If
If VordergrundFarbe = 0 Then
VColor = RGB(0, 0, 0) 'Standart-Wert: kann geändert werden
Else
VColor = VordergrundFarbe
End If
Set Target = ActiveCell
If ExakteZelle Then
b = Not Intersect(Target, Zelle) Is Nothing
Else
b = Target.Address = Zelle.Address
End If
If b Then
If Zelle = HText Then
Zelle = ""
Zelle.Font.Color = VColor
End If
Else
If Zelle = "" Or Zelle = HText Then
Zelle.Font.Color = HColor
Zelle = HText
Else
Zelle.Font.Color = VColor
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = UCase(Target)
ErrorHandler:
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = UCase(Target)
ErrorHandler:
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A9")) Is Nothing Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = UCase(Target)
ErrorHandler:
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A11")) Is Nothing Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = UCase(Target)
ErrorHandler:
Application.EnableEvents = True
End If
End Sub
die frisur ist gut, aber ich frag mich, ob sie zu deinem gesicht passt. was man so auf dem bild sieht, würde ich dir diese frisur in etwas kürzer empfehlen.
ja, ne grundierung für dein gesicht beim schminken!
wenn du das in deiner natürlichen farbe nachzeichnest, ist das ok. dadurch kannst du zb kleine fehler beim zupfen ausgleichen, oder auch wenn sie nicht gleich dicht wachsen.
eigtl ne super sache, aber übertreibs nicht, sonst siehts echt billig aus!
versuch mal ne haarkur zu machen, aber lass das zeug mind. 30-60 min. einwirken, auch wenn auf der packung nur 3 minuten steht oder so... dann versuch mal, die haare nicht täglich zu waschen (soweit es möglich ist, z.B. Sonntags oder in den Ferien).
wie die anderen schon schreiben, durch das häufige waschen werden die haare immer fettiger! du musst es erstmal schaffen, sie wieder an den "normalen fettgehalt" zu gewöhnen. am besten wäre wirklich, die haare eine woche nicht zu waschen, dass sie so richtig fettig werden. das ist ekelig, aber tut dem haar wirklich gut!
sprichst du normal englisch und hast das jetzt auf deutsch geschrieben?
mach schnitzel mit kartoffeln und na guten jägersoße!
ich würd sagen, dass ist vollkommen normal!
kommt auf mädel an - kann sein, dass du ne ohrfeige kassierst!
gepflegt! Wasch dich immer, rasier dich, geh zum frisör. wenn du noch trainierst und deinen körper so etwas definierst (muss kein sixpack sein!) siehts gut aus. beharrung find ich abstoßend. ebenso wenn du nen ganzes bärenfell auf deinem rücken oder armen hast!
die antwort von Criza ist gut! das würd ich dir auch empfehlen!
wenn du schüchtern bist, fällt es dir wahrscheinlich schwer mit ihr zu reden. leute die schüchtern sind können ihre gedanken und gefühle dafür oft gut in schrift fassen. schreib ihr mal einen ehrlichen brief, dass du sie magst usw., UND dass du zu schüchtern bist, sie anzusprechen.
so wie du das beschreibst, seid ihr bald ein Paar! ;) Ja, er mag dich - sogar mehr als mögen!
Deine Schilderung passt und euer Alter dazu >> definitiv ja!