Eleganta ideer för att hålla reda på sina växter...
Någon som har en mall eller exempel på hur man kan typ bokföra vilka arter man har, vilken individ man haft hur länge, kanske med bild…?
Tycker appen planta är lite ewww då man inte ör helt fri med infon man lägger in. :P
MVH Alva <3
För att hålla reda på dina växter kan du skapa ett enkelt kalkylblad eller en databas. Här är ett förslag på hur du kan strukturera det:
- Kalkylblad (t.ex. Google Sheets, Excel):
- Kolumner:
- Växtnamn
- Art
- Datum inköpt/planterad
- Plats
- Vattningsschema
- Solljusbehov
- Bildlänk
- Anteckningar
- Databas (t.ex. Notion, Airtable):
- Skapa en tabell med liknande kolumner som ovan.
- Lägg till möjligheten att bifoga bilder direkt i databasen.
- Använd kategorier eller taggar för att organisera växterna efter typ eller behov.
- Fysiskt journal:
- Använd en anteckningsbok där du kan klistra in bilder och skriva information för hand.
- Skapa en sida för varje växt med samma information som ovan.
Dessa metoder ger dig friheten att anpassa informationen efter dina behov och preferenser. Du kan även använda appar som Notion eller Airtable för att få mer flexibilitet och möjlighet att lägga till bilder och påminnelser.
Källor:
Bra om det fanns nån enkel app!
Kör på olika listor, men det är lite jobb att hålla dem uppdaterade.
Jag gör anteckningar i ett block. Jag har även använt excel i datorn många år men det slutade jag med.
Sorg är kärlek som blivit hemlös
Sorgen är kärlekens pris
Testar nu excel… ska se om jag får till på numbers…

för ålder:
=IFS(F2<>"", DATEDIF(F2,TODAY(),"Y")&" år, "&DATEDIF(F2,TODAY(),"YM")&" månader", E2<>"", DATEDIF(E2,TODAY(),"Y")&" år, "&DATEDIF(E2,TODAY(),"YM")&" månader", TRUE, "")
Worksheet kåd:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
' Change "A:A" to match your specific drop-down column letter
If Not Intersect(Target, Range("H:H")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo Exitsub
If Target.Value <> "" Then
' 1. Temporarily turn off Excel events to prevent freeze/bugs
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
' 2. If the cell was empty, just add the new value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
' 3. Check if the item is already in the list
If InStr(1, ", " & Oldvalue & ", ", ", " & Newvalue & ", ") > 0 Then
' It exists: Remove it
Dim temp As String
temp = ", " & Oldvalue & ", "
temp = Replace(temp, ", " & Newvalue & ", ", ", ")
' Clean up trailing/leading commas and spaces
If Left(temp, 2) = ", " Then temp = Mid(temp, 3)
If Right(temp, 2) = ", " Then temp = Left(temp, Len(temp) - 2)
Target.Value = temp
Else
' It does not exist: Append it
Target.Value = Oldvalue & ", " & Newvalue
End If
End If
End If
End If
Exitsub:
' 4. ALWAYS turn events back on so Excel works normally
Application.EnableEvents = True
End Sub
MVH Alva <3
Finns färdiga mallar på Etsy som man kan köpa och ladda ner. Sök på "potted plant planner" eller "potted flower journal" tex.
Eller gör en junk journal med egna bilder och texter. Pressade blad/blommor, urklipp, skötselråd osv. Lite mer personligt och originellt.
- Redigerat 2026-05-27 10:50 av Caeli
#4: vill ej betala för mallar… men kanske kan göra en egen…
MVH Alva <3