Supportnet / Forum / Tabellenkalkulation
Formel von A1 als Text in B1
Frage
Hallo zusammen,
ich habe noch ein kleines Problemchen...
Aber erstmal ein riesengrossen Dankeschön an alle, die mir in den letzten Tagen geholfen haben!
Nun zu meinem Problem:
In A1 steht der Buchstabe "A"
In B1 die Formel "=A1"
In C1 soll jetzt die Formel als Text erscheinen. Also "=A1".
hab ich mich verständlich ausgedrückt?
Gruß
Balumba
Antwort 1 von balumba
Alternativ suche ich folgendes (ich weiß, das eine hört sich Suspekt zur ersten Anfrage an, hat aber seinen Sinn...):
In D4 steht der Text "Team".
Die Spalte und Zeile kann sich ändern.
Also vielleicht auch mal in C5, oder H25, usw...
In A1 soll nun herausgegeben werden, wie die Zelle heißt, wo "Team" drin steht.
Verständlich?
Gruß
Balumba
In D4 steht der Text "Team".
Die Spalte und Zeile kann sich ändern.
Also vielleicht auch mal in C5, oder H25, usw...
In A1 soll nun herausgegeben werden, wie die Zelle heißt, wo "Team" drin steht.
Verständlich?
Gruß
Balumba
Antwort 2 von ypsilon
hi,
ich nehm mal die erste frage als erstes
in ein modul:
Function FormelZeigen(Zelle As Excel.Range) As String
FormelZeigen = Zelle.FormulaLocal
End Function
und schon hast du eine benutzerdefinierte formel die du ganz normal verwenden kannst
zweite frage als zweites ;-)
in das klassenmodul der tabelle:
Sub finden()
Dim x
Set x = Cells.Find("Team")
If Not x Is Nothing Then
Cells(1, 1) = x.Address
Else
MsgBox "nix gefunden"
End If
End Sub
cu Micha
ich nehm mal die erste frage als erstes
in ein modul:
Function FormelZeigen(Zelle As Excel.Range) As String
FormelZeigen = Zelle.FormulaLocal
End Function
und schon hast du eine benutzerdefinierte formel die du ganz normal verwenden kannst
zweite frage als zweites ;-)
in das klassenmodul der tabelle:
Sub finden()
Dim x
Set x = Cells.Find("Team")
If Not x Is Nothing Then
Cells(1, 1) = x.Address
Else
MsgBox "nix gefunden"
End If
End Sub
cu Micha
Antwort 3 von balumba
Hallo Micha!
Vielen Dank!
Prima!
noch eine kleine Zusatzfrage zum meiner zweiten Frage (und Deiner zweiten Antwort :-) ):
Kann ich auch über dem aktuellen Arbeitsblatt suchen?
Also:
Meine Datei ist auf "C:\Tabelle1.xls" - Arbeitsblatt "Blatt1"
Die zu durchsuchende Tabelle auf "D:\Tabelle1.xls" - Arbeitsblatt "Daten01"
Geht das auch?
Gruß
Balumba
Vielen Dank!
Prima!
noch eine kleine Zusatzfrage zum meiner zweiten Frage (und Deiner zweiten Antwort :-) ):
Kann ich auch über dem aktuellen Arbeitsblatt suchen?
Also:
Meine Datei ist auf "C:\Tabelle1.xls" - Arbeitsblatt "Blatt1"
Die zu durchsuchende Tabelle auf "D:\Tabelle1.xls" - Arbeitsblatt "Daten01"
Geht das auch?
Gruß
Balumba
Antwort 4 von ypsilon
hi,
du scheinst da eine verwandtschaft zu einem gewissen Potter zu haben
ich schaff es nicht zwei workbooks mit dem gleichen namen zu öffnen
cu Micha
du scheinst da eine verwandtschaft zu einem gewissen Potter zu haben
ich schaff es nicht zwei workbooks mit dem gleichen namen zu öffnen
cu Micha
Antwort 5 von ypsilon
...aber wenn du dem kind einen anderen namen gibst:
Set x = Workbooks("Tabelle2.xls").Sheets("Daten01").Cells.Find("Team")
cu Micha
Set x = Workbooks("Tabelle2.xls").Sheets("Daten01").Cells.Find("Team")
cu Micha
Antwort 6 von balumba
Nein, ehrlich gesagt habe ich keinen Potter Zauberstab, sondern nur eine Tastatur, die nicht 1 von 2 unterscheiden kann.
Oder war´s doch nen Tipfehler? *ggg*
Auf jedenfalls klappt es wunderbar!
Nochmals vielen Dank!
Gruß
Balumba
Oder war´s doch nen Tipfehler? *ggg*
Auf jedenfalls klappt es wunderbar!
Nochmals vielen Dank!
Gruß
Balumba
Antwort 7 von ypsilon
no prob,
gern geschehen
zauber schön weiter ;-)
cu Micha
gern geschehen
zauber schön weiter ;-)
cu Micha